记录编号 1738 评测结果 AAAAAAAAAA
题目名称 圆弦 最终得分 100
用户昵称 Gravatarfrancis 是否通过 通过
代码语言 Pascal 运行时间 10.000 s
提交时间 2008-09-07 13:18:17 内存使用 0.00 MiB
显示代码纯文本
program circlex;
const
fin='circlex.in';
fou='circlex.out';
var
f:array[0..1000]of longint;
i,j,n:longint;
f1,f2:text;

begin
assign(f1,fin); assign(f2,fou);
reset(f1); rewrite(f2);
read(f1,n);
f[0]:=1; f[1]:=1;
for i:= 2 to n do
begin
 f[i]:=f[i-1];
 for j:= 0 to i-2 do
 begin
 f[i]:=f[i]+f[j]*f[i-j-2];
 f[i]:=f[i] mod 12345;
 end;
end;

write(f2,f[n]);
close(f1); close(f2);
end.