Question

Free Pascal 一个程序

求最小正整数 m，n（0<n<m）为何值时，1989的m次方与1989的n次方 的最后三位数字相同。 请高手帮忙
在你们给出答案以前 我已经会了 况且你们的答案可能会出界#99

Answer 1

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

Answer 2

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.