比赛代码 - COGS

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

显示代码纯文本

program waterfire;
const
fin='puzhuan.in';
fout='puzhuan.out';
var
f,g:text;
n,ans,i,j:longint;
data:array[1..10000000] of longint;
begin
assign(f,fin);reset(f);
assign(g,fout);rewrite(g);
read(f,n);
data[1]:=1;
data[2]:=3;
for i:=3 to n do
data[i]:=(data[i-1]+data[i-2]*2) mod 12345;
write(g,data[n]);
close(f);
close(g);
end.