Cod sursa(job #125763)

Utilizator dragos15Mateescu Dumitru Dragos dragos15 Data 20 ianuarie 2008 17:44:17
Problema Fructe Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
var f,g:text;
    n,i,p,b:longint;
begin
assign(f,'fructe.in'); reset(f);
assign(g,'fructe.out'); rewrite(g);

readln(f,n);

for i := 1 to n do begin
         readln(f,p,b);
         if b mod 2 = 1 then writeln(g,'1') else
                             writeln(g,'0');
                    end;

close(f);
close(g);

end.