比赛代码 - COGS

比赛	NOIP_4	评测结果	AAAAAAAAAA
题目名称	铺砖	最终得分	100
用户昵称	lc	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-09-19 21:19:02

显示代码纯文本

program day4_2;
 var
    n,i:integer;
    f:array[0..1000] of longint;

 begin
  assign(input,'puzhuan.in');
  assign(output,'puzhuan.out');
  reset(input); rewrite(output);
  read(n);
  f[0]:=1; f[1]:=1;
  for i:=2 to n do
  f[i]:=(f[i-2]*2+f[i-1]) mod 12345;
  writeln(f[n]);
  close(input); close(output);
 end.