我是渣渣 - pascal吧

我是渣渣

level 5

宽宽hony 楼主

约数和
试题描述
输入一个自然数n，求这个数所有约数的和。
输入要求
输入一个自然数n
输出要求
一个正整数。
输入样例
25
输出样例
31
知识点及提示
25的约数和=1+5+25=31

2016年10月29日 10点10分 1

level 9

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

2016年10月29日 10点10分 2

level 9

如果是Turbo Pascal就不能用int64

2016年10月29日 10点10分 3