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