Cod sursa(job #218966)

Utilizator squeezyAmza Bianca Ioana squeezy Data 4 noiembrie 2008 15:06:03
Problema Fructe Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.25 kb
Raporteaza aceasta sursa 
var
f,g:text;
p,b,t,i:longint;
begin
assign(f,'fructe.in');
reset(f);
readln(f,t);
assign(g,'fructe.out');
rewrite(g);
for i:=1 to t do
   readln(f,p,b);
   if (p+b)mod 2=0 then writeln(g,'1')
                 else writeln(g,'0');
close(g)
end.