记录编号 1600 评测结果 AAAAAAAAAA
题目名称 圆弦 最终得分 100
用户昵称 Gravatarmaxiem 是否通过 通过
代码语言 Pascal 运行时间 0.011 s
提交时间 2008-09-05 20:15:11 内存使用 0.00 MiB
显示代码纯文本
program circlex;
var
  j,i,n:integer;
  a:array [0..1000] of longint;
begin
  fillchar (a,sizeof(a),0);
  assign (input,'circlex.in');
  reset (input);
  readln (n);
  close (input);
  assign (output,'circlex.out');
  rewrite (output);
  a[0]:=1;a[1]:=1;a[2]:=2;a[3]:=4;
  for i:=4 to n do begin
    a[i]:=a[i-1] mod 12345;
    for j:=0 to i-2 do a[i]:=(a[i]+a[j]*a[i-2-j]) mod 12345;
  end;
  writeln (a[n]);
  close (output);
end.