MMMGAME - M & M Game

Tác giả: ll931110

Ngôn ngữ: Pascal

{$MODE DELPHI}
Program MMMGAME;
Const
  input  = '';
  output = '';
Var
  fi,fo: text;
  t,i: integer;

Procedure openfile;
Begin
  Assign(fi, input);
    Reset(fi);

  Assign(fo, output);
    Rewrite(fo);
End;

Procedure solve;
Var
  n,i,k,res: integer;
  win1,win2,c1,c2,fin: boolean;
Begin
  res:= 0;
  win1:= true;

  c1:= false;
  c2:= false;

  Readln(fi, n);
  For i:= 1 to n do
    Begin
      Read(fi, k);
      If k = 1 then
        Begin
          c1:= true;
          win1:= not win1;
        End else c2:= true;
      res:= res xor k;
    End;

       If not c2 then fin:= win1
  else if not c1 then fin:= not (res = 0)
  else
    fin:= not (res = 0);

  If fin then writeln(fo, 'John') else writeln(fo, 'Brother');
End;

Procedure closefile;
Begin
  Close(fo);
  Close(fi);
End;

Begin
  openfile;

  Readln(fi, t);
  For i:= 1 to t do solve;

  closefile;
End.

Download