897701029 2010-12-25 07:16:00
点我顶贴
收藏
删除
var
i,j,k,l,m,n:longint；
a:array[1..1000000] of longint；
begin
readln(n)；
if n=1 then writeln(’None’)
else begin
writeln(1)；
l:=trunc(sqrt(n))；
for i:=l to n-1 do
begin
if i*i mod n=1 then
writeln(i)；
end；
end；
end.
#1 jf9517538462@2010-09-13 06:24:00
17361
回复
删除
试着改一改
program ex296;
var n:1..2000000000;
x:0..1999999999;
begin
readln(n);
for x:=1 to n-1
do if ((x*x) mod n=1) then writeln(x);
readln;
end.
#3 阿high@2010-12-25 07:16:00
19957
回复
删除
2L那样做为什么可以做到60000多？
我同样的程序，只是没有子界居然50000就不行了
可悲它的数据到2000000000