Tìm các số nhỏ hơn n

Question

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

Answer 1

var     n,i,j,S:integer;
begin
        readln(n);
        write('Cac so hoan chinh nho hon ',n,' la: ');
        for i:=1 to n-1 do
        begin
         S:=0;
         for j:=1 to i-1 do if i mod j=0 then S:=S+j;
         if i=S then write(i,' ');
        end;
        readln;
end.

Chúc bạn học tốt

_nguyendavit123_