比赛代码 - COGS

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

显示代码纯文本

program circlex;
var
  n,i,j:integer;
  f:array[0..1000]of integer;
begin
  assign(input,'circlex.in');
  assign(output,'circlex.out');
  reset(input);
  rewrite(output);
  readln(n);
  fillchar(f,sizeof(f),0);
  f[0]:=1;f[1]:=1;f[2]:=2;
  for i:=3 to n do begin
   f[i]:=f[i-1];
   for j:=1 to i-1 do
    f[i]:=(f[i]+f[j-1]*f[i-1-j])mod 12345;
  end;
  writeln(f[n]);
  close(input);
  close(output);
end.