主程序如下:
var i,j,s,total:longint;
begin
i:=3;
total:=0;
repeat
s:=1; //求一个数的真因子要加上1，而不用加上它本身
for j:=2 to trunc(sqrt(i)) do //求一个数的约数只需求到它的平方根以内
if i mod j=0 then s:=s+j+i div j; //这句话很精妙又很难懂，你要仔细琢磨
if s=i then begin write(i,' '); inc(total) end;
inc(i)
until i>10000;
writeln;
write('total=',total)
end.
程序运行结果如下：
6 28 496 8128
total=4
小链接：http://baike.baidu.com/view/19074.htm
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024