Cod sursa(job #218969)

Utilizator squeezyAmza Bianca Ioana squeezy Data 4 noiembrie 2008 15:20:00
Problema Fructe Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.26 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);
   if b mod 2<>0 then writeln(g,'1')
                 else writeln(g,'0');  end;
close(g)
end.