记录编号 129128 评测结果 AAAAAAAAAA
题目名称 铺砖 最终得分 100
用户昵称 GravatarFoolMike 是否通过 通过
代码语言 Pascal 运行时间 0.000 s
提交时间 2014-10-19 11:55:35 内存使用 0.17 MiB
显示代码纯文本
var
f:array[1..1000]of longint;
n,a:longint;
begin
assign(input,'puzhuan.in');
assign(output,'puzhuan.out');
reset(input);
rewrite(output);
read(n);
f[1]:=1;
f[2]:=3;
for a:=3 to n do
f[a]:=(2*f[a-2]+f[a-1]) mod 12345;
writeln(f[n]);
close(input);close(output);
end.