输入一个自然数n,求这个数所有约数的和。

var n,i,ans:longint;
begin
readln(n);
ans:=0;
for i:=1 to trunc(sqrt(n)) do
if n mod i=0 then ans:=ans+i+(n div i);
if trunc(sqrt(n))=sqrt(n) then dec(ans,trunc(sqrt(n))); {完全平方数的平方根算了两次}
writeln(ans);
readln;
end.

如12=2^2*3，约数和=（1+2+4）*（1
+3
）=（2^0+2^1+2^2)*(3^0+3^1).

11111
18888888888
8888888888888888888888888888888