Cod sursa(job #157104)

Utilizator Clau2000GOREA CLAUDIU-CRISTIAN Clau2000 Data 12 martie 2008 21:08:42
Problema Fructe Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.28 kb
Raporteaza aceasta sursa 
var f,g:text;
    p,b,t,i:longint;
begin
     assign(f,'fructe.in');
     assign(g,'fructe.out');
     reset(f);
     rewrite(g);
     read(f,t);
     for i:=1 to t do
     begin
        read(f,p,b);
     write(g,b mod 2);
     end;
     close(f);
     close(g);
end.