Cod sursa(job #124857)

Utilizator juniorOvidiu Rosca junior Data 20 ianuarie 2008 09:16:28
Problema Fructe Scor 100
Compilator fpc Status done
Runda preONI 2008, Runda 3, Clasele 5-8 Marime 0.32 kb
Raporteaza aceasta sursa 
var
	fi, fo : text;
  n, b, p, i : longint;
begin
	assign(fi,'fructe.in'); reset(fi);
  assign(fo,'fructe.out'); rewrite(fo);
  readln(fi,n);
  for i := 1 to n do
  	begin
    	readln(fi,p,b);
      if odd(b) then
      	writeln(fo, 1)
      else
      	writeln(fo, 0);
    end;
  close(fi); close(fo);
end.