比赛代码 - COGS

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

显示代码纯文本

program MayLava;
var
 a:array[0..1000]of int64;
 n,i,j:integer;
 f:text;
begin
 assign(f,'circlex.in');
 reset(f);
 readln(f,n);
 close(f);
 fillchar(a,sizeof(a),0);
 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];
  a[i]:=a[i]+a[i-1];
  a[i]:=a[i] mod 12345;
 end;
 assign(f,'circlex.out');
 rewrite(f);
 writeln(f,a[n]);
 close(f);
end.