记录编号 4023 评测结果 AAAAAAAAAA
题目名称 圆弦 最终得分 100
用户昵称 Gravatar王瑞祥K 是否通过 通过
代码语言 Pascal 运行时间 0.075 s
提交时间 2008-10-12 22:45:24 内存使用 0.11 MiB
显示代码纯文本
program circlex(input,output);
var
 a:array[0..1000]of integer;
 n,i,j:integer;
begin
 assign(input,'circlex.in');
 assign(output,'circlex.out');
 reset(input);rewrite(output);
 read(n);
 a[0]:=1;a[1]:=1;
 for i:=2 to n do
 begin
  a[i]:=a[i-1];
  for j:=0 to i-2 do
  a[i]:=(a[i]+a[j]*a[i-j-2]) mod 12345;
 end;
 write(a[n]);
 close(input);close(output);
end.