记录编号 2379 评测结果 AAAAAAAAAA
题目名称 铺砖 最终得分 100
用户昵称 Gravatarmaxiem 是否通过 通过
代码语言 Pascal 运行时间 0.033 s
提交时间 2008-09-20 10:51:35 内存使用 0.13 MiB
显示代码纯文本
program puzhuan;
var
  s:array [1..10000] of integer;
  n,i:integer;
begin
  assign (input,'puzhuan.in');
  reset (input);
  readln (n);
  s[1]:=1;s[2]:=3;
  for i:=3 to n do s[i]:=(s[i-2]*2+s[i-1]) mod 12345;
  close (input);
  assign (output,'puzhuan.out');
  rewrite (output);
  writeln (s[n]);
  close (output);
end.