pascal program
答案:1 悬赏:70 手机版
解决时间 2021-07-18 02:19
- 提问者网友：世勋超人
- 2021-07-17 17:47
pascal program
最佳答案
- 五星知识达人网友：詩光轨車
- 2021-07-17 19:01
var
i,j,k:integer;
begin
for i:=2 to 1000 do begin
k:=0;
for j:=1 to i-1 do
if i mod j=0 then inc(k,j);
if k=i then writeln(i);
end;
end.
i,j,k:integer;
begin
for i:=2 to 1000 do begin
k:=0;
for j:=1 to i-1 do
if i mod j=0 then inc(k,j);
if k=i then writeln(i);
end;
end.
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯