【2012.03.09普及组】约数和 (Standard IO)

题目描述

给你一个数N，需要你算出这个数所有约数的和。（N的约数指能整除N的正整数），例如12的约数有1，2，3，4，6，12。所以约数和为1+2+3+4+6+12=28

题解：
注意：
  计算出结果的数记录下来，有可能有重复的。

代码：

var
a:array[0..5000001] of longint;
n,s,i,j,ans:longint;
begin
readln(n);
for i:=1 to n do
begin
readln(s);ans:=0;
if a[s]>0 then
begin
writeln(a[s]);
continue;
end
else
begin
for j:=1 to trunc(sqrt(s)) do
if s mod j=0 then
if j=s div j then
ans:=ans+j
else ans:=ans+j+s div j;
a[s]:=ans;
writeln(ans);
end;
end;
end.