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.
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.
Comments
0 B
|👍
/👎
0 B
|👍
/👎