比赛代码 - COGS

比赛	NOIP_4	评测结果	MMMMMMMMMM
题目名称	铺砖	最终得分	0
用户昵称	卐祭司卐	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-09-19 20:37:46

显示代码纯文本

program meng;
const maxn=100000000;
var i,k,n:longint;
    fi,fo:text;
    sum:array[0..maxn] of int64;

procedure print;
begin
    write(fo,sum[n]);
    close(fi);close(fo);
end;

begin
    assign(fi,'puzhuan.in');
    assign(fo,'puzhuan.out');
    reset(fi);   rewrite(fo);
    readln(fi,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.