Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program xxxxxxxx;
- var y, n, res, x: int64;
- begin
- y:=30;
- for n:=trunc(sqrt(y*2)) downto 1 do begin
- x:=y-(n*(n+1) div 2);
- if x mod n=0 then begin
- writeln(x div n, ' ', n);
- halt();
- end;
- end;
- end.
Advertisement