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