1019:石头剪子布 分数: 1

题目描述

现在有两个人在玩石头剪子布游戏，请你判断最后谁赢了。
用R代表石头，S代表剪子，P代表布。

输入格式

输入的第一行是一个整数t（0<t<1000），表示测试样例的数目。
每组输入样例的第一行是一个整数n（0<n<100），表示游戏次数。
接下来n行，每行由两个字母组成，两个字母之间用一个空格分隔，这些字母只会是R，S或P。
第一个字母表示Player1的选择，第二个字母表示Player2的选择。

输出

对于每组输入样例，输出获胜方的名字（Player1或Player2），如果平均，则输出TIE。

样例输入

3
2
R P
S R
3
P P
R S
S R
1
P R

样例输出

Player 2
TIE
Player 1

program p1019;

var t,n,i,j,e,f:longint;a,b,c:char;

begin

 readln(t);

 for i:=1 to t do

  begin

   readln(n);

   e:=0;f:=0;

   for j:=1 to n do

   begin

   readln(a,c,b);

   if (a='R') and (b='S') or (a='P') and (b='R')

    or (a='S') and (b='P') then e:=e+1;

   if (a='S') and (b='R') or (a='P') and (b='S')

    or (a='R') and (b='P') then f:=f+1;

   end;

   if e>f then writeln('Player 1')

   else if e<f then writeln('Player 2')

   else writeln('TIE');

  end;

end.