记录编号 |
2380 |
评测结果 |
AAAAAAAAAA |
题目名称 |
铺砖 |
最终得分 |
100 |
用户昵称 |
francis |
是否通过 |
通过 |
代码语言 |
Pascal |
运行时间 |
10.000 s |
提交时间 |
2008-09-20 12:49:15 |
内存使用 |
0.37 MiB |
显示代码纯文本
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.