比赛代码 - COGS

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

显示代码纯文本

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