比赛代码 - COGS

比赛	NOIP_5	评测结果	AAAAAAAAAA
题目名称	行进方案	最终得分	100
用户昵称	maxiem	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-09-24 21:34:18

显示代码纯文本

program zbfa;
var
  a:array [0..1000] of integer;
  i,n:integer;
begin
  assign (input,'zbfa.in');
  reset (input);
  readln (n);
  close (input);
  a[0]:=1;a[1]:=3;
  for i:=2 to n do a[i]:=(a[i-1]*2+a[i-2]) mod 12345;
  assign (output,'zbfa.out');
  rewrite (output);
  writeln (a[n]);
  close (output);
end.