记录编号 | 33568 | 评测结果 | AAAWWWWEEE | ||
---|---|---|---|---|---|
题目名称 | 分裂 | 最终得分 | 30 | ||
用户昵称 | echo | 是否通过 | 未通过 | ||
代码语言 | 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.