记录编号	1588	评测结果	AAAAAAAAAA
题目名称	圆弦	最终得分	100
用户昵称	dingding	是否通过	通过
代码语言	Pascal	运行时间	0.056 s
提交时间	2008-09-05 19:30:11	内存使用	0.12 MiB

program  cir;
var
   e:text;
   f:array[0..1000] of longint;
   i,j,m,n:longint;
begin
   assign(e,'circlex.in');
   reset(e);
   readln(e,n);
   close(e);
   for i:=1 to n do
   f[i]:=0;
   f[0]:=1;
   f[1]:=1;
   for i:=2 to n do  begin
   f[i]:=f[i]+f[i-1];
   for j:=0 to i-2 do  begin
   f[i]:=f[i]+f[j]*f[i-2-j];
   if f[i]>=12345 then f[i]:=f[i] mod 12345;
   end;
   
   end;
   assign(e,'circlex.out');
   rewrite(e);
   writeln(e,f[n]);
   close(e);
end.