Question

viết chương trình in ra tất cả các ước của số n và tính tổng các ước

Answer 1

var         n,i,S:integer;

begin

            readln(n);

            S:=0;

            write('Cac uoc cua ',n,' la:');

            for i:=1 to n do if n mod i=0 then

            begin

                write(i,' ');      S:=S+i;

            end;

            writeln;

            write('Tong cac uoc cua ',i,' la:',S);

            readln;

end.

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