Cod sursa(job #130925)

Utilizator Myha3Lacazacu mihaela Myha3La Data 2 februarie 2008 16:37:59
Problema Fructe Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.27 kb
Raporteaza aceasta sursa 
var   f,g:text;p,b:longint;t,i:integer;
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=1 then writeln(g,'1')
   else writeln(g,'0');
  end;
  close(f);close(g);
  end.