Cod sursa(job #176685)

Utilizator Tase_CCapalna Tanase Tase_C Data 11 aprilie 2008 15:59:30
Problema Fructe Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.22 kb
Raporteaza aceasta sursa 
var t,i,p,b:longint;
begin
assign(input,'fructe.in');reset(input);
assign(output,'fructe.out');rewrite(output);
read(t);
 for t:=1 to p do begin
  read(p,b);
  writeln(b mod 2);
 end;
close(input);close(output);
end.