| 记录编号 | 19581 | 评测结果 | AAAAAAAAAA | ||
|---|---|---|---|---|---|
| 题目名称 | 473.核电站问题 | 最终得分 | 100 | ||
| 用户昵称 | 是否通过 | 通过 | |||
| 代码语言 | 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.