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.