Question

Em hãy viết chương trình nhập vào một số nguyên n in ra các ước của số n và tính tổng các ước của số n

Giúp mình với.Mình cảm ơn ạ

Answer 1

uses crt;

var n,i,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

t:=0;

for i:=1 to n do

  if n mod i=0 then

begin

write(i:4);

t:=t+i;

end;

writeln;

writeln('Tong cac uoc cua ',n,' la: ',t);

readln;

end.