比赛代码 - COGS

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

显示代码纯文本

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