10.6 约数 2406

题目

给你一个整数I，求它的所有除数的和。如I=12，和为1+2+3+4+6+12=28
1<=I<=1,000,000

题解

水模拟，数据又小，O(n)枚举即可

代码

var
  n,i,ans:longint;
begin
  readln(n);
  for i:=1 to n do
    if n mod i=0 then ans:=ans+i;
  writeln(ans);
end.