记录编号	77819	评测结果	AAAAAAAAAA
题目名称	网球赛	最终得分	100
用户昵称	Ezoi_XY	是否通过	通过
代码语言	Pascal	运行时间	0.169 s
提交时间	2013-11-02 18:32:03	内存使用	10.44 MiB

Program cog603;
    Var
        F:Array[1..1030,0..15]Of Extended;
        P:Array[1..1030,1..1030]Of Extended;
        I,J,K,N:Longint;
        M:Extended;
    Begin
        Assign(Input,'elimination.in');
        Assign(Output,'elimination.out');
        Reset(Input);
        Rewrite(Output);
        Readln(N);
        For I:=1 To 1 Shl N Do
            For J:=1 To 1 Shl N Do
                Begin
                    Read(P[I,J]);
                    P[I,J]:=P[I,J]/100;
                End;
        For I:=1 To 1 Shl N Do F[I,0]:=1;
        For J:=1 To N Do
            For I:=1 To 1 Shl N Do
                Begin
                    F[I,J]:=0;
                    For K:=1 Shl (J-1)*((I-1) Shr (J-1) Xor 1)+1 To 1 Shl (J-1)*((I-1) Shr (J-1) Xor 1)+1 Shl (J-1) Do
                        F[I,J]:=F[I,J]+F[K,J-1]*P[I,K];
                    F[I,J]:=F[I,J]*F[I,J-1];
                End;
        M:=0;
        For I:=1 To 1 Shl N Do
            If F[I,N]>M Then
                Begin
                    M:=F[I,N];
                    K:=I;
                End;
        Writeln(K);
        Close(Input);
        Close(Output);
    End.