Viết chương trình tìm các số hoàn chỉnh nhỏ hơn n (Với n được nhập từ bàn phím).

0 bình luận về “Viết chương trình tìm các số hoàn chỉnh nhỏ hơn n (Với n được nhập từ bàn phím).”

1. Var S, n, i, j: longint;
   Begin
       Write(‘Nhap so n =’); readln(n);
       For i:=1 to n do
          Begin
              S:=0;
              For j:=1 to i do if i mod j = 0

                   then S:=S+j;
              if S = 2*i

              then write(i:6,’,’);
          end;
       readln
   end.

   Bình luận

2. Program Tim_uoc_2;
   uses crt;
   Var S, n, i,j: longint;
   Begin
    clrscr;
    Write(‘Nhap so n =’); readln(n);
    For i:=1 to n do
    Begin
    S:=0;
    For j:=1 to i do if i mod j = 0 then S:=S+j;
    if S = 2*i then write(i:6,’,’);
    end;
    readln
   end.

   khaboy@chúc bn hc tốt

   Bình luận