记录编号 3980 评测结果 AAAAAAAAAA
题目名称 圆弦 最终得分 100
用户昵称 Gravatarbly1991 是否通过 通过
代码语言 Pascal 运行时间 0.293 s
提交时间 2008-10-12 17:02:47 内存使用 0.19 MiB
显示代码纯文本
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]) mod 12345;
  end;

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