pascal相亲数（亲和数）问题
答案:1 悬赏:60 手机版
解决时间 2021-11-18 19:01
- 提问者网友：欺烟
- 2021-11-18 09:43
pascal相亲数（亲和数）问题
最佳答案
- 五星知识达人网友：舍身薄凉客
- 2021-11-18 11:02
var
a1,b1,i,j:longint;
begin
for i:=1 to 1000 do begin
a1:=0;
for j:=1 to i-1 do
if i mod j = 0 then
a1:=a1+j;
b1:=0;
for j:=1 to a1-1 do
if a1 mod j = 0 then
b1:=b1+j;
if (b1 = i) and (i <> a1) then
writeln(i,' ',a1);
if (a1 > 1000) or (b1 > 1000) then
break;
end;
end.
在http://218.4.165.132/oj/ShowProblem?problemid=d072测了AC
a1,b1,i,j:longint;
begin
for i:=1 to 1000 do begin
a1:=0;
for j:=1 to i-1 do
if i mod j = 0 then
a1:=a1+j;
b1:=0;
for j:=1 to a1-1 do
if a1 mod j = 0 then
b1:=b1+j;
if (b1 = i) and (i <> a1) then
writeln(i,' ',a1);
if (a1 > 1000) or (b1 > 1000) then
break;
end;
end.
在http://218.4.165.132/oj/ShowProblem?problemid=d072测了AC
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯