记录编号 | 2379 | 评测结果 | AAAAAAAAAA | ||
---|---|---|---|---|---|
题目名称 | 铺砖 | 最终得分 | 100 | ||
用户昵称 | maxiem | 是否通过 | 通过 | ||
代码语言 | 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.