记录编号 4001 评测结果 AAAAAAAAAA
题目名称 行进方案 最终得分 100
用户昵称 GravatarMayLava 是否通过 通过
代码语言 Pascal 运行时间 0.002 s
提交时间 2008-10-12 20:33:28 内存使用 0.11 MiB
显示代码纯文本
program MayLava;
var
 a:array[0..1000]of integer;
 n,i:integer;
 f:text;
BEGIN
 assign(f,'zbfa.in');
 reset(f);
 readln(f,n);
 close(f);
 a[0]:=1;
 a[1]:=3;
 for i:=2 to n do
  a[i]:=(a[i-2]+a[i-1]*2) mod 12345;
 assign(f,'zbfa.out');
 rewrite(f);
 writeln(f,a[n]);
 close(f);
END.