比赛 | NOIP_1 | 评测结果 | AAAAAAAAAA |
---|---|---|---|
题目名称 | 圆弦 | 最终得分 | 100 |
用户昵称 | bing | 运行时间 | 0.000 s |
代码语言 | Pascal | 内存使用 | 0.00 MiB |
提交时间 | 2009-07-20 10:06:55 | ||
program bing; var f1,f2:text; n,i,j:integer; f:array[0..1000] of longint; begin assign(f1,'circlex.in');reset(f1); assign(f2,'circlex.out');rewrite(f2); readln(f1,n); fillchar(f,sizeof(f),0); 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(f2,f[n]); close(f1);close(f2); end.