Cod sursa(job #289159)
Utilizator | Data | 26 martie 2009 15:12:47 | |
---|---|---|---|
Problema | Fructe | Scor | 100 |
Compilator | fpc | Status | done |
Runda | aa | Marime | 0.35 kb |
var t,i:shortint;
procedure citire_paritate;
var p,b:longint;
begin
readln (input,p,b);
if 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.