| 比赛 | NOIP_1 | 评测结果 | AAAAAAAAAA |
|---|---|---|---|
| 题目名称 | 圆弦 | 最终得分 | 100 |
| 用户昵称 | EnAsn | 运行时间 | 0.000 s |
| 代码语言 | Pascal | 内存使用 | 0.00 MiB |
| 提交时间 | 2009-07-20 10:10:09 | ||
program ex;
type
ss=array[0..1000]of longint;
var
f:ss;
i,j,n:integer;
begin
assign(input,'circlex.in');
assign(output,'circlex.out');
reset(input);
rewrite(output);
readln(n);
close(input);
f[0]:=1;
f[1]:=1;
for i:=2 to n do
begin
for j:=0 to i-2 do
f[i]:=(f[i]+f[j]*f[i-2-j])mod 12345;
f[i]:=(f[i]+f[i-1])mod 12345;
end;
writeln(f[n]);
close(output);
end.