viết chương trình tìm các số hoàn chỉnh nhỏ hơn n

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”

1. Cho mik xin nhất :))

   Program So_hoan_chinh;

   Uses crt;

   VAR

   BEGIN

   clrscr;

   Write(‘Nhap n:’);Readln(n);

   write(‘Cac so hoan chinh nho hon ‘,n,’ la: ‘);

   For i:= 1 to n-1 do

   For j:= 1 to i-1 do

   Begin

   If n mod i = 0 then S:= S+j;

   If S=i then Write(i:5); End;

    

   Readln

   END.

   Bình luận