Cod sursa(job #589511)

Utilizator santa_vasilesanta vasile santa_vasile Data 12 mai 2011 17:56:03
Problema Fructe Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.31 kb
Raporteaza aceasta sursa 
program fructe;
var i,n,b,p,x,y:longint;
    fin,fout:text;
begin
assign(fin,'fructe.in'); reset(fin);
assign(fout,'fructe.out'); rewrite(fout);
read(fin,n);
for i:=1 to n do
begin
 read(fin,p,b);
if(b mod 2=0)then
  writeln(fout,0)
  else
  writeln(fout,1);
end;
  close(fin);
  close(fout);
end.