记录编号 1819 评测结果 AAAAAAAAAA
题目名称 圆弦 最终得分 100
用户昵称 Gravatar卐祭司卐 是否通过 通过
代码语言 Pascal 运行时间 0.291 s
提交时间 2008-09-08 20:27:14 内存使用 0.12 MiB
显示代码纯文本
program lanlan;
var
  a:array[0..1000] of int64;
  i,n,k:longint;
  fi,fo:text;
begin
  assign(fi,'circlex.in');assign(fo,'circlex.out');
  reset(fi);rewrite(fo);
  readln(fi,n);
  a[0]:=1;
  a[1]:=1;
  for i:=2 to n do begin
    for k:=0 to i-2 do
     a[i]:=(a[i]+a[k]*a[i-2-k]) mod 12345;
    a[i]:=(a[i-1]+a[i])mod 12345;
  end;
  write(fo,a[n]);
  close(fi);close(fo);
end.