Accepted
/usr/bin/ld.bfd: warning: /out/link.res contains output sections; did you forget -T?
代码
var n,i,sum,p:longint;
begin
p:=1000000007;
readln(n);
for i:=1 to n do
sum:=(sum+n div i)mod p;
writeln(sum mod p);
close(input);
close(output);
end.信息
- 递交者
-
ljc20020730 LV 8
- 类型
- 递交
- 题目
- 约数统计 AHOI2005
- 题目数据
- 下载
- 语言
- Pascal
- 递交时间
- 2017-08-22 16:41:43
- 评测时间
- 2017-08-22 16:41:43
- 评测机
-
上海红茶馆
- 分数
- 100
- 总耗时
- 977ms
- 峰值内存
- 256.0 KiB