#3 liudingshun@2011-11-04 21:05:00
23488
回复
删除
哪里错了
program ex296;
uses math;
var n:1..2000000000;
x:0..1999999999;
begin
readln(n);
if n=1 then write('None')
else begin writeln(1);
for x:=trunc(sqrt(n)) to n-1 do
if frac((x*x-1)/n)=0 then writeln(x);
end;readln;readln;
end.