比赛代码 - COGS

比赛	20110725	评测结果	MMMMMMMMMM
题目名称	失落的神庙	最终得分	0
用户昵称	ybh	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2011-07-25 11:46:22

显示代码纯文本

program losttemple;
var
  f:array[0..30000000] of int64;
  n,i:longint;
  
begin
  assign(input,'losttemple.in');
  reset(input);
  assign(output,'losttemple.out');
  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.