Cod sursa(job #136937)

Utilizator tiger_10Dutescu Radu Alin tiger_10 Data 16 februarie 2008 17:20:21
Problema Fructe Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.28 kb
Raporteaza aceasta sursa 
var t,p,b,i: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
  read(f,p);
  readln(f,b);
  if b mod 2=0 then
   writeln(g,0)
    else writeln(g,1);
  end;
close(g);
close(f);
end.