记录编号 33568 评测结果 AAAWWWWEEE
题目名称 分裂 最终得分 30
用户昵称 Gravatarecho 是否通过 未通过
代码语言 Pascal 运行时间 1.927 s
提交时间 2011-11-11 09:42:32 内存使用 95.52 MiB
显示代码纯文本
program mushroom;
var
  n,i,j,ans:longint;
  f:array[0..5000,0..5000] of longint;

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