7200的因数有几个?它所有因数的和是多少？
发布网友
发布时间：2024-01-21 18:34
共1个回答
热心网友
时间：2024-12-03 00:55
程序：
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.
