比赛代码 - COGS

比赛	NOIP_4	评测结果	AAAAAAAAAA
题目名称	铺砖	最终得分	100
用户昵称	Hamster	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-09-19 21:31:07

显示代码纯文本

program puzhuan;
var
  n,i:longint;
  a:array[1..2000] of integer;
  fin,fout:text;

begin
  assign(fin,'puzhuan.in');
  reset(fin);
  assign(fout,'puzhuan.out');
  rewrite(fout);

  readln(fin,n);
  a[1]:=1;
  for i:=2 to n do
  if i mod 2 =0 then a[i]:=(a[i-1]*2+1) mod 12345
  else a[i]:=(a[i-1]*2-1) mod 12345;
  writeln(fout,a[n]);

  close(fin);
  close(fout);
end.