Cod sursa(job #283642)
Utilizator | Data | 19 martie 2009 14:43:25 | |
---|---|---|---|
Problema | Fructe | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.37 kb |
var t,i:shortint;
procedure citire_paritate;
var p,b:longint;
begin
readln (input,p,b);
if (p mod 2=0) or (b mod 2=0) then
writeln (output,0)
else
writeln (output,1);
end;
begin
assign (input,'fructe.in');
reset (input);
readln (input,t);
assign (output,'fructe.out');
rewrite (output);
for i:=1 to t do
citire_paritate;
close (input);
close (output);
end.