比赛 NOIP_5 评测结果 AAAAAAAAAA
题目名称 行进方案 最终得分 100
用户昵称 zxc111 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2008-09-24 20:02:45
显示代码纯文本
program ooo;
var
a:array[1..1000] of longint;
i,j,k:longint;
t:text;
begin
assign(t,'zbfa.in');
reset(t);
readln(t,k);
close(t);
a[1]:=3;
a[2]:=7;
for i:=3 to k do
a[i]:=(a[i-1]*2+a[i-2])mod 12345;
assign(t,'zbfa.out');
rewrite(t);
write(t,a[k]);
close(t);
end.