Viết chương trình nhập vào 1 số nguyên dương N.Tính tổng các ước nguyên dương của N(N

Question

Viết chương trình nhập vào 1 số nguyên dương N.Tính tổng các ước nguyên dương của N(N<=10^12) vd:N=4 ta có tổng 1+2+4=7 làm ơn bài ktra của tui

phuongthuy · Answer

Program bt2;
Uses crt;

Var
n,t,i:integer;
BEGIN
Clrscr;
Write(‘n= ‘);
Readln(n);
t:=0;
For i:=1 to n do
If n mod i=0 then t:=t+i;
Write(t);
Readln;
END.

hienchau · Answer

program tinh_tong_uoc;

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 t:=t+i;

write(‘Tong la: ‘,t);

readln;

end.

Viết chương trình nhập vào 1 số nguyên dương N.Tính tổng các ước nguyên dương của N(N<=10^12) vd:N=4 ta có tổng 1+2+4=7 làm ơn bài ktra của tui