比赛代码 - COGS

比赛	NOIP_3	评测结果	WWWWWWWWWW
题目名称	查数	最终得分	0
用户昵称	书剑飘零	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-10-19 11:23:29

显示代码纯文本

program tz;
var f:array[1..1000,1..2]of longint; 
a,b,c,d,i,j,k,m,n:longint;f1,f2:text;
begin 
assign(f1,'chashu.in');
assign(f2,'chashu.out');
reset(f1);
rewrite(f2);
readln(f1,n); 
f[1,1]:=0;f[1,2]:=1; 
for i:=0 to n do 
begin 
f[i,1]:=(f[i-1,2]+f[i-1,1]*8)mod 12345; 
f[i,2]:=(f[i-1,1]+f[i-1,2]*8)mod 12345; 
end; 
writeln(f2,f[n,1]); 
end.