比赛代码 - COGS

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

显示代码纯文本

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