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.



posted @ 2017-10-06 16:36  银叶草  阅读(94)  评论(0编辑  收藏  举报
Live2D