比赛 | NOIP_4 | 评测结果 | AAAAAAAAAA |
---|---|---|---|
题目名称 | 铺砖 | 最终得分 | 100 |
用户昵称 | zxc111 | 运行时间 | 0.000 s |
代码语言 | Pascal | 内存使用 | 0.00 MiB |
提交时间 | 2008-09-19 21:19:56 | ||
program ooo; var a:array[1..5000000] of longint; i,j,k,n,m:longint; t:text; begin assign(t,'puzhuan.in'); reset(t); readln(t,n); close(t); a[1]:=1; a[2]:=3; for i:=3 to n do a[i]:=(a[i-2]*2+a[i-1]) mod 12345; assign(t,'puzhuan.out'); rewrite(t); write(t,a[n]); close(t); end.