viết sơ đồ chương trình tìm số hoàn hảo từ 1-32000

0 bình luận về “viết sơ đồ chương trình tìm số hoàn hảo từ 1-32000”

1. uses crt;
   var i,j,t:longint;
   begin
   clrscr;
      for i:=1 to 32000 do
         begin
            t:=0;
            for j:=1 to i do if i mod j =0 then inc(t,j);
            if t=i*2 then writeln(i);
         end;
   readln
   end.

   Bình luận

2. Program sohoanhao;
   Uses Crt;
   Var i,j,tong: integer;
   Begin
   Clrscr;
   Write(‘1,’)
   For i:= 1 to 32000 do
   Begin
   Tong:=0;
   For j:=i-1 downto 1 do
   If i mod j = 0 then
   Tong:=tong+j;
   If tong = i then write(i,’,’);
   end;

   readln

   End.

   Bình luận