比赛代码 - COGS

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

显示代码纯文本

Program exp;
Var f:Array [-5..50] Of Extended;
n,m,i:Integer;
f1,f2:text;
Begin
  assign(f1,'nucle.in');
  reset(f1);
  assign(f2,'nucle.out');
  Readln(f1,n,m);close(f1);
  Fillchar(f,sizeof(f),0);
  f[-1]:=1;f[0]:=1;
  For i:=1 To n Do f[i]:=2*f[i-1]-f[i-m-1];
  rewrite(f2);
  Writeln(f2,f[n]:0:0);close(f2);
End.