记录编号 7554 评测结果 AAAAAAAAAA
题目名称 铺砖 最终得分 100
用户昵称 Gravatarzxc111 是否通过 通过
代码语言 Pascal 运行时间 0.001 s
提交时间 2008-11-10 17:08:19 内存使用 0.15 MiB
显示代码纯文本
program ooo;
var
i,j,k,n,m,max:longint;
a:array[1..10000] of longint;
t:text;
begin
assign(t,'puzhuan.in');
reset(t);
readln(t,n);
close(t);
a[1]:=1;
a[2]:=3;
for i:=3 to n do
a[i]:=(a[i-1]+a[i-2]*2) mod 12345;
assign(t,'puzhuan.out');
rewrite(t);
write(t,a[n]);
close(t);
end.