Free Pascal 一个程序
求最小正整数m，n（0<n<m）为何值时，1989的m次方与1989的n次方的最后三位数字相同。请高手帮忙在你们给出答案以前我已经会了况且你们的答案可能会出界#99...
求最小正整数 m，n（0<n<m）为何值时，1989的m次方与1989的n次方 的最后三位数字相同。 请高手帮忙
在你们给出答案以前 我已经会了 况且你们的答案可能会出界#99 展开
在你们给出答案以前 我已经会了 况且你们的答案可能会出界#99 展开
2个回答
展开全部
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
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
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
浙江启扬智能科技有限公司
2023-06-12 广告
ARM，Android，Linux之间并无直接联系。ARM是嵌入式CPU,Andrioid和Linux是操作系统。 ARM不是为Linux而设计，Linux也不是为ARM而设计，二者是独立存在的。Linux和Android可以移植到以ARM...
点击进入详情页
本回答由浙江启扬智能科技有限公司提供
展开全部
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.
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.
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
