比赛代码 - COGS

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

显示代码纯文本

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