记录编号 4411 评测结果 AAAAAAAAAA
题目名称 查数 最终得分 100
用户昵称 Gravatarname:弓虽 是否通过 通过
代码语言 Pascal 运行时间 0.002 s
提交时间 2008-10-19 12:21:20 内存使用 0.12 MiB
显示代码纯文本
program chashu(input,output);
 var
  i,j,k:longint;
  n:longint;
  ans:int64;
  oushu,jishu:array [1..1001] of longint;
begin
 assign(input,'chashu.in');
 assign(output,'chashu.out');
 reset(input);
 rewrite(output);
 readln(n);
 oushu[1]:=8;
 jishu[1]:=1;
  for i:=2 to n do begin
   oushu[i]:=(oushu[i-1]*9+jishu[i-1]) mod 12345;
   jishu[i]:=(jishu[i-1]*9+oushu[i-1]) mod 12345;
  end;
  ans:=oushu[n];
 write(ans);
 close(input);
 close(output);
end.