比赛 NOIP_4 评测结果 AAAAAAAAAA
题目名称 铺砖 最终得分 100
用户昵称 francis 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2008-09-19 20:29:18
显示代码纯文本
program puzhuan;
const
fin='puzhuan.in';
fou='puzhuan.out';
var
f:array[1..10000,1..2]of longint;
total,n,i:longint;
f1,f2:text;

begin
assign(f1,fin); assign(f2,fou);
reset(f1); rewrite(f2);
read(f1,n);
f[1,1]:=1; f[1,2]:=0;
f[2,1]:=1; f[2,2]:=2;
for i:=3 to n do
 begin
  f[i,1]:=(f[i-1,1]+f[i-1,2]) mod 12345;
  f[i,2]:=(2*(f[i-2,1]+f[i-2,2])) mod 12345;
 end;
total:=(f[n,1]+f[n,2]) mod 12345;
write(f2,total);
close(f1); close(f2);
end.