比赛代码 - COGS

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

显示代码纯文本

program bly(input,output);
var
  f:array[0..10000] of int64;
  f1,f2:text;
  n:longint;
  i,j:integer;
begin
  assign(f1,'circlex.in');
  reset(f1);
  readln(f1,n);
  close(f1);

  f[0]:=1; f[1]:=1;
  for i:=2 to n do begin
    for j:=0 to i-2 do f[i]:=(f[i]+f[j]*f[i-j-2]) mod 12345;
    f[i]:=f[i]+f[i-1];
  end;

  assign(f2,'circlex.out');
  rewrite(f2);
  writeln(f[n]);
  close(f2);
end.