比赛代码 - COGS

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

显示代码纯文本

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