比赛 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.