比赛代码 - COGS

比赛	NOIP_3	评测结果	AAAAAAAAAA
题目名称	查数	最终得分	100
用户昵称	辨机ZN	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-10-19 09:05:07

显示代码纯文本

program ex(f1,f2);
 type
  zn=array [1..2000] of longint;
 var
  i,j,k,l,p,m,n:longint;
  ou,ji:zn; f1,f2:text;
 begin
  assign(f1,'chashu.in'); reset(f1);
  assign(f2,'chashu.out'); rewrite(f2);
  readln(f1,n);
  ou[1]:=8; ji[1]:=1;
  for i:=2 to n do
   begin
    ou[i]:=(9*ou[i-1]+ji[i-1]) mod 12345;
    ji[i]:=(9*ji[i-1]+ou[i-1]) mod 12345;
   end;
  writeln(f2,ou[n]);
  close(f1);
  close(f2);
 end.