记录编号 19581 评测结果 AAAAAAAAAA
题目名称 核电站问题 最终得分 100
用户昵称 Gravatarwo shi 刘畅 是否通过 通过
代码语言 Pascal 运行时间 0.000 s
提交时间 2010-10-12 22:22:19 内存使用 0.14 MiB
显示代码纯文本
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.