记录编号 3340 评测结果 AAAAAAAAAA
题目名称 铺砖 最终得分 100
用户昵称 GravatarWaterFire 是否通过 通过
代码语言 Pascal 运行时间 0.035 s
提交时间 2008-10-06 18:11:02 内存使用 38.26 MiB
显示代码纯文本
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.