【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.