记录编号 76164 评测结果 AAAAAAAAAA
题目名称 行进方案 最终得分 100
用户昵称 GravatarEzoi_XY 是否通过 通过
代码语言 Pascal 运行时间 0.000 s
提交时间 2013-10-30 07:07:36 内存使用 0.17 MiB
显示代码纯文本
Program cog123;
    Var
        N,Now,Last,Laster:Longint;
    Begin
        Assign(Input,'zbfa.in');
        Assign(Output,'zbfa.out');
        Reset(Input);
        Rewrite(Output);
        Now:=3;
        Last:=1;
        Readln(N);
        While N>1 Do
            Begin
                Laster:=Last;
                Last:=Now;
                Now:=(Last Shl 1+Laster) Mod 12345;
                Dec(N);
            End;
        Writeln(Now);
        Close(Input);
        Close(Output);
    End.