比赛代码 - COGS

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

显示代码纯文本

program puzhuan;   
const maxn=100000000;   
var i,k,n:longint;   
    f1,f2:text;   
    sum:array[0..maxn] of int64;   
  procedure print;   
begin  
  write(f2,sum[n]);   
  close(f1);close(f2);   
end;   
  begin  
   assign(fi,'puzhuan.in');   
   assign(fo,'puzhuan.out');   
   reset(f1);   rewrite(f2);   
   readln(f1,n);   
   fillchar(sum,sizeof(sum),0);   
    sum[1]:=1; sum[2]:=3;   
    for i:=3 to n do sum[i]:=(sum[i-1]+sum[i-2]*2)mod 12345;   
  print;   
end.