比赛代码 - COGS

比赛	NOIP_4	评测结果	WWWWWWWWWA
题目名称	铺砖	最终得分	10
用户昵称	maxiem	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-09-19 22:16:46

显示代码纯文本

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