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