var

x,m:longint;

begin

readln(m);

for x:=1 to m-1 do

begin

if sqrt(1-4*(-x*x-2*m+x))>=0 then

if trunc((-1+sqrt(1-4*(-x*x-2*m+x)))/2)=(-1+sqrt(1-4*(-x*x-2*m+x)))/2 then

writeln(x,' ',(-1+sqrt(1-4*(-x*x-2*m+x)))/2:0:0) else

if trunc((-1-sqrt(1-4*(-x*x-2*m+x)))/2)=(-1-sqrt(1-4*(-x*x-2*m+x)))/2 then

writeln(x,' ',(-1+sqrt(1-4*(-x*x-2*m+x)))/2:0:0);

end;

end.

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：运行时错误...| 错误号: 207 | 无效浮点运算

├ 测试数据 06：运行时错误...| 错误号: 207 | 无效浮点运算

├ 测试数据 07：运行时错误...| 错误号: 207 | 无效浮点运算

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：40 有效耗时：0ms