比赛代码 - COGS

比赛	模拟测试2	评测结果	AAAAAAAAAA
题目名称	核电站问题	最终得分	100
用户昵称	wo shi 刘畅	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2010-10-12 21:21:57

显示代码纯文本

var
  n,k,i:longint;
  f:array[-1000..1000,0..1]of int64;

begin
  assign(input,'nucle.in'); reset(input);
  assign(output,'nucle.out'); rewrite(output);
  readln(n,k);
  f[1,0]:=1;
  f[1,1]:=1;
  f[0,0]:=1;
  for i:=2 to n do
  begin
    f[i,0]:=f[i-1,0]+f[i-1,1];
    f[i,1]:=f[i-1,0]+f[i-1,1]-f[i-k,0];
  end;
  writeln(f[n,1]+f[n,0]);
  close(input);
  close(output);
end.