比赛代码 - COGS

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

显示代码纯文本

program puzhuan;
var
  i,n:integer;
  sz:array[0..10000]of longint;
begin
  assign(input,'puzhuan.in');
  assign(output,'puzhuan.out');
  reset(input);
  rewrite(output);
  readln(n);
  sz[0]:=1;
  sz[1]:=1;
  for i:=2 to n do
  begin
    sz[i]:=sz[i-1]*2;
    if i mod 2=0 then sz[i]:=sz[i]+1 else sz[i]:=sz[i]-1;
    sz[i]:=sz[i] mod 12345;
  end;
  writeln(sz[n]);
  close(input);
  close(output);
end.