2017年10月05日普及组 约数
分析
水题一道,5分钟搞定。
程序:
var
n,i,t:longint;
begin
assign(input,'bri.in');
reset(input);
assign(output,'bri.out');
rewrite(output);
read(n);
t:=0;
for i:=1 to n do
if n mod i=0 then t:=t+n div i;
write(t);
close(input);
close(output);
end.