Question

编程输出1~10000内所有的完全数（如6）即真因子之和都等于他本身的数，用pascal repeat，跪求！！！！！

Answer 1

主程序如下:

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