测试点 #1：通过该测试点。 得分14，耗时0ms，内存3133kB。

测试点 #2：通过该测试点。 得分14，耗时0ms，内存3129kB。

测试点 #3：通过该测试点。 得分14，耗时0ms，内存3133kB。

测试点 #4：通过该测试点。 得分14，耗时0ms，内存3129kB。

测试点 #5：通过该测试点。 得分14，耗时0ms，内存3112kB。

测试点 #6：运行时错误。 得分0，错误编号215

测试点 #7：运行时错误。 得分0，错误编号215

源代码 Source code

view plainprint?

var  
  i,k,m:longint;  
begin  
  readln(m);  
  for i:=1 to m div 2 do  
  begin  
    k:=trunc(sqrt(2*m-i+i*i));  
    if k<=i then break;  
    if k*(k+1)=2*m-i+i*i then  
    if (k+i)*(k-i+1)=2*m then writeln(i,' ',k);  
  end;  
end.