比赛 NOIP_3 评测结果 AWWWWWWWWA
题目名称 查数 最终得分 20
用户昵称 name:弓虽 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2008-10-19 09:59:41
显示代码纯文本
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]);
   jishu[i]:=(jishu[i-1]*9+oushu[i-1]);
  end;
 ans:=(oushu[n] mod 12345);
 write(ans);
 close(input);
 close(output);
end.