begin
for m := 1 to 100 do
begin
f[m] := (f[m-1] * 1989) mod 1000;
for n := 1 to m do
if f[m] = f[n] then
begin
writeln(n,m);
halt;
end;
end;
end.
f[i]记录1989的i次方的末3位，f[0] = 1
var
m,n:integer;
begin
for m := 1 to 10000 do
begin
f[m] := (f[m-1] * 1989) mod 1000;
for n := 1 to m do if f[m] = f[n] then
begin
writeln(n,m);
halt;
end;
end;
end.
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024