Cod sursa(job #127825)

Utilizator TudorutzuMusoiu Tudor Tudorutzu Data 25 ianuarie 2008 01:11:20
Problema Fructe Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
var t,p,i,b:longint;
    f,g:text;
begin
     assign(f,'fructe.in'); reset(f);
     assign(g,'fructe.out'); rewrite(g);
     readln(f,t);
     for i:=1 to t do
     begin
          readln(f,p,b);
          if b mod 2 = 0 then writeln(g,'0')
                         else writeln(g,'1');
     end;
     close(g);
end.