记录编号 17491 评测结果 AAAAAAAAAA
题目名称 圆弦 最终得分 100
用户昵称 GravatarDes. 是否通过 通过
代码语言 Pascal 运行时间 0.292 s
提交时间 2010-07-23 16:15:41 内存使用 0.12 MiB
显示代码纯文本
program circles;
var f:array[0..1000]of int64;
    g:text;
    t,k,m,n,j:longint;
begin
assign(g,'circlex.in');
reset(g);
readln(g,n);
close(g);
f[0]:=1;
f[1]:=1;
for t:=2 to n do
  begin
    for k:=t-2 downto 0 do
      f[t]:=(f[k]*f[t-2-k]+f[t])mod 12345;
    f[t]:=(f[t]+f[t-1])mod 12345;
  end;
assign(g,'circlex.out');
rewrite(g);
writeln(g,f[n]);
close(g);
end.