记录编号 62550 评测结果 AWAAWWWWWWAWAWWWWWWW
题目名称 ZH的约会(数据有误) 最终得分 25
用户昵称 GravatarEzoi_XY 是否通过 未通过
代码语言 Pascal 运行时间 0.117 s
提交时间 2013-07-02 19:40:14 内存使用 0.17 MiB
显示代码纯文本
Program cog853;
    Var
        A:Array[1..8]Of Longint;
        I,J,S,N:Longint;
    Begin
        Assign(Input,'spread.in');
        Assign(Output,'spread.out');
        Reset(Input);
        Rewrite(Output);
        Fillchar(A,Sizeof(A),0);
        A[1]:=1;
        Readln(N);
        For I:=1 To N Do
            Begin
                S:=0;
                Inc(A[8],A[7]);
                For J:=7 Downto 2 Do A[J]:=A[J-1];
                For J:=3 To 7 Do Inc(S,A[J]);
                A[1]:=S Shl 1;
            End;
        S:=0;
        For I:=1 To 8 Do Inc(S,A[I]);
        Writeln(S);
        Close(Input);
        Close(Output);
    End.