| 比赛 | 20110725 | 评测结果 | MMMMMMMMMM |
|---|---|---|---|
| 题目名称 | 失落的神庙 | 最终得分 | 0 |
| 用户昵称 | echo | 运行时间 | 0.000 s |
| 代码语言 | Pascal | 内存使用 | 0.00 MiB |
| 提交时间 | 2011-07-25 11:49:56 | ||
- program losttemple;
- var
- n,i,j,ans:longint;
- f:array[0..40000000] of int64;
- begin
- assign(input,'losttemple.in');
- assign(output,'losttemple.out');
- reset(input);
- rewrite(output);
- readln(n);
- f[0]:=1;
- f[1]:=1;
- for i:=2 to n do
- f[i]:=f[i div 2]+f[i div 3]+f[i div 5]+f[i div 7];
- writeln(f[n]);
- close(input);
- close(output);
- end.