7200的因数有几个?它所有因数的和是多少?

Question

7200的因数有几个?它所有因数的和是多少?

Answer 1

有54个,和是25389.
程序：
program easy;
var
sum,i,tot:longint;
begin
sum:=0;
for i:=1 to 7200 do begin
if 7200 mod i=0 then begin
sum:=sum+i;
inc(tot);
end;
end;
writeln(tot);
write(sum);
readln;
end.