记录编号 2334 评测结果 AAAAAAAAAA
题目名称 查数 最终得分 100
用户昵称 GravatarAchilles 是否通过 通过
代码语言 Pascal 运行时间 10.000 s
提交时间 2008-09-18 14:02:01 内存使用 0.12 MiB
显示代码纯文本
program sdf;
var
  i,n:integer;
  a,b:array[1..1000]of longint;
begin
  assign(input,'chashu.in');
  assign(output,'chashu.out');
  reset(input);
  rewrite(output);
  readln(n);
  a[1]:=8;
  b[1]:=1;
  for i:=2 to n do
  begin
    a[i]:=a[i-1]*9+b[i-1];
    b[i]:=b[i-1]*9+a[i-1];
    if a[i]>100000 then a[i]:=a[i] mod 12345;
    if b[i]>100000 then b[i]:=b[i] mod 12345;
  end;
  writeln (a[n] mod 12345);
  close(input);
  close(output);
end.