比赛代码 - COGS

比赛	NOIP_1	评测结果	EEEEEEEEEE
题目名称	圆弦	最终得分	0
用户昵称	辨机ZN	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-10-12 10:42:25

显示代码纯文本

program ex(f1,f2);
type
 zn=array [0..2000] of longint;
var
   a:zn;
   i,n,j:longint;
   f1,f2:text;
begin
   assign(f1,'circle.in'); reset(f1);
   assign(f2,'circle.out'); rewrite(f2);
   readln(f1,n);
   a[0]:=1;a[1]:=1;
   for i:=2 to n do
   begin
      for j:=0 to i-2 do
         a[i]:=(a[i]+a[j]*a[i-j-2]) mod 12345;
         a[i]:=(a[i]+a[i-1]) mod 12345;
   end;
   writeln(f2,a[n]);
   close(f1);
   close(f2);
end.