记录编号 3449 评测结果 AAAAAAAAAA
题目名称 圆弦 最终得分 100
用户昵称 GravatarWaterFire 是否通过 通过
代码语言 Pascal 运行时间 0.103 s
提交时间 2008-10-07 09:18:18 内存使用 0.11 MiB
显示代码纯文本
program waterfire;
var
   a:array[0..1000]of longint;
   i,n,k:longint;f:text;
begin
   assign(f, 'circlex.in');reset(f);
   readln(f,n); close(f);
   a[0]:=1;a[1]:=1;
   for i:=2 to n do  begin
      for k:=0 to i-2 do
         a[i]:=(a[i]+a[k]*a[i-2-k])mod 12345;
      a[i]:=(a[i]+a[i-1]) mod 12345;
   end;
   assign(f,'circlex.out');rewrite(f);
   writeln(f,a[n]);close(f);
end.