比赛代码 - COGS

比赛	NOIP_3	评测结果	AAAAAAAAAA
题目名称	查数	最终得分	100
用户昵称	lc	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-09-12 22:06:29

显示代码纯文本

program exday3_3;
 var
    a,b:array[1..1000] of longint;
    n,i:integer;

 begin
  assign(input,'chashu.in');
  assign(output,'chashu.out');
  reset(input); rewrite(output);
  read(n);
  a[1]:=8; b[1]:=1;
  for i:=2 to n do
   begin
   a[i]:=(a[i-1]*9+b[i-1]) mod 12345;
   b[i]:=(b[i-1]*9+a[i-1]) mod 12345;
   end;
  writeln(a[n]);
  close(input); close(output);
 end.