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