比赛 | 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.