wan_sh~1.bak

来自「本人 菜鸟+学生 ！ 老鸟指教的说 这些是自己写的一写PAS」· BAK 代码 · 共 17 行

program wan_shu;
     var s,x,y,n:longint;
 begin
  for n:=2to 1000do
   begin
       x:=1;  s:=0;
         for y:=1to 1000do
           if (n mod x)=0then
             begin
                 s:=s+x;
                 x:=x+1;
             end
            else x:=x+1;
         if n=(s-n) then write('wan:',n,' ');
  end;
   readln;
 end.