比赛 | NOIP_1 | 评测结果 | AAWWWWWWWA |
---|---|---|---|
题目名称 | 圆弦 | 最终得分 | 30 |
用户昵称 | WaterFire | 运行时间 | 0.000 s |
代码语言 | Pascal | 内存使用 | 0.00 MiB |
提交时间 | 2008-09-03 21:27:34 | ||
program waterfire; const fin='circlex.in'; fout='circlex.out'; var i,n,j:longint; f,g:text; a:array[0..1000] of longint; begin assign(f,fin);reset(f); assign(g,fout);rewrite(g); read(f,n); fillchar(a,sizeof(a),0); a[0]:=1; a[1]:=1; for i:=2 to n do begin for j:=0 to i-2 do a[i]:=a[i]+a[j]*a[i-2-j]; a[i]:=a[i]+a[i-1]; end; write(g,a[n]); close(g); end.