Cod sursa(job #727601)

Utilizator andreiseiceanSeicean Andrei andreiseicean Data 28 martie 2012 09:37:37
Problema Fructe Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.51 kb
var f,g:text;
    n,p,b,i:integer;
begin
assign(f,'fructe.in');reset(f);assign(g,'fructe.out');rewrite(g);
read(f,n);
for i:=1 to n do
  begin
    read(f,p,b);
    if (p=b) then if (p mod 2=1) then writeln(g,1) else
                                      writeln(g,0);
    if (p<>b) then if (p mod 2=1)and(b mod 2=1) then writeln(g,1);
    if ((p mod 2=1)and(b mod 2=0))or((p mod 2=0)and(b mod 2=1)) then writeln(g,0);
    if (p mod 2=0)and(b mod 2=0) then writeln(g,0);
  end;
close(f);close(g);
end.