2017年10月05日普及组约数

原创于 2017-10-06 16:36:20 发布 · 284 阅读

0 ·

CC 4.0 BY-SA版权

普及模拟赛专栏收录该内容

91 篇文章

订阅专栏

本文介绍了一道简单的编程题目，通过一段简洁的Pascal程序解决该问题。程序读取输入文件'bri.in'中的整数n，并计算从1到n的所有因数之和，将结果输出到'bri.out'中。

这里写图片描述

分析
水题一道，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.