比赛代码 - COGS

比赛	NOIP_1	评测结果	WWWWWWWWWA
题目名称	圆弦	最终得分	10
用户昵称	zxc111	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-09-03 22:02:18

显示代码纯文本

program ooo;   
var  
i,j,k,l:longint;   
a:array[-10..1000] of longint;   
t:text;   
begin  
assign(t,'circlex.in');   
reset(t);   
read(t,l);   
close(t);   
a[0]:=1;   
a[1]:=1;   
for i:=2 to l do  
 begin  
 for j:=0 to i-2 do  
  a[i]:=(a[j]*a[i-2-j]);   
  a[i]:=(a[i]+a[i-1])mod 12345;   
  end;   
assign(t,'circlex.out');   
rewrite(t);   
write(t,a[l]);   
close(t);   
end.