Cod sursa(job #202013)

Utilizator GavrilaVladGavrila Vlad GavrilaVlad Data 5 august 2008 16:22:51
Problema Fructe Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.25 kb
Raporteaza aceasta sursa 
var n,i,a,b:longint;
    f,t:text;
begin
   assign(f,'fructe.in');
   assign(t,'fructe.out');
   reset(f);
   rewrite(t);
   read(f,n);
   for i:=1 to n do
   begin
   read(f,a,b);
   writeln(t,b mod 2);
   end;
   close(f);
   close(t);
end.