比赛代码 - COGS

比赛	NOIP_4	评测结果	WWWWWWWWWA
题目名称	铺砖	最终得分	10
用户昵称	E.M.B.E.R	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-09-19 21:13:24

显示代码纯文本

program EmberAsh;
var
n,i,j,k:longint;
f:array[1..10000]of int64;

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