Cod sursa(job #589505)

Utilizator santa_vasilesanta vasile santa_vasile Data 12 mai 2011 17:47:49
Problema Fructe Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.36 kb
program fructe;
var i,n,b,p:longint;
    fin,fout:text;
begin
assign(fin,'fructe.in'); reset(fin);
assign(fout,'fructe.out'); rewrite(fout);
read(fin,n);
for i:=1 to n do
 read(fin,b,p);
if(b mod 2=1)then
  begin
  writeln(fout,1);
  writeln(fout,0);
  end
  else
  begin
  writeln(fout,0);
  writeln(fout,1);
  end;
  close(fin);
  close(fout);
end.