点这里查看
讨论 / 此题谁会做？
Jollwish 2011-11-04 21:05:00
点我顶贴 收藏 删除
这个问题缠我很久啦！
#1 OI帝国@2008-12-15 20:30:00
回复 删除
我终于ＡＣ啦！哈哈哈
#2 hfoi@2008-12-17 02:50:00
回复 删除
此题是AHOI2007年的一道题。
#3 liudingshun@2011-11-04 21:05:00
回复 删除
哪里错了

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.

查看更多回复
提交回复