Cod sursa(job #1047892)

Utilizator Vele_GeorgeVele George Vele_George Data 4 decembrie 2013 23:08:03
Problema Fructe Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.24 kb
Raporteaza aceasta sursa 
var n,i:integer;
    p,b:longint;
    f,g:text;
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);
  writeln(g,(b mod 2));
 end;

close(f);close(g);
end.