用pascal编程求2-1000中的完数

来源：百度知道 编辑：UC知道 时间：2024/06/14 13:55:13
(因子和等于它本身的数为完数,例如28的因子是1,2,4,7,14,且1+2+4+7+14=28,则28是完数)
急求!!!

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.

program d454 (input,output)l
var
j,n,x:integer;
begin
write(‘输出完数：’);
for j:=2 to 1000 do
begin
x:=0;
for n:=1 to j do
if j mod n=0 then x:=x+n;
if x=2*j then write(j,’,’);
end;
end.