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