TOPIC
já submeti várias vezes e sempre da 5%, o que ta e
fagner asked 3 years ago
program ParOuImpar;
uses crt;
var n, i, a, b, teste: Integer; jog1, jog2: String;
begin teste := 1; readln(n); while n <> 0 do begin readln(jog1); readln(jog2); writeln('Teste ', teste); for i := 1 to n do begin readln(a, b); if ((a + b) mod 2 = 0) then begin writeln(jog1); end else begin writeln(jog2); end; end; teste := teste + 1; writeln; readln(n); end; end.