比赛代码 - COGS

比赛	NOIP_1	评测结果	AAAAAAAAAA
题目名称	圆弦	最终得分	100
用户昵称	苏轼	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-10-12 09:20:13

显示代码纯文本

program cch(input,output);
var
 f:array[0..1000] of int64;
 i,j,n:integer;
begin
 assign(input,'circlex.in');
 assign(output,'circlex.out');
 reset(input);
 rewrite(output);
 readln(n);
 f[0]:=1;
 for i:=1 to n do
  begin
   f[i]:=f[i-1];
   for j:=0 to i-2 do
    inc(f[i],f[j]*f[i-2-j]);
   f[i]:=f[i] mod 12345;
  end;
 write(f[n]);
 close(input);
 close(output);
end.