Cod sursa(job #218968)

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