Cod sursa(job #717202)

Utilizator Iandrei96Isaila Ioan Andrei Iandrei96 Data 19 martie 2012 19:00:18
Problema Fructe Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.31 kb
Raporteaza aceasta sursa 
var p,b:array[1..100] of longint;
    t,i:integer;
    f,g:text;
begin
assign(f,'fructe.in');reset(f);
assign(g,'fructe.out');rewrite(g);
read(f,t);
for i:=1 to t do
 begin
  read(f,p[i],b[i]);
  if b[i] mod 2=0 then writeln(g,0)
                  else writeln(g,1);
  end;
  close(f);close(g);
  end.