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