Cod sursa(job #468698)

Utilizator lianaliana tucar liana Data 4 iulie 2010 18:09:53
Problema Fructe Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
program fructe;
var f, g:text;
    b, p, i, t:longint;
  begin
    assign(f,'fructe.in'); reset(f);
    assign(g,'fructe.out'); rewrite(g);
    readln(f,t);
    for i:=1 to t do
      begin
        read(f,p,b);
        if b mod 2=0 then
          writeln(g,0)
         else
           writeln(g,1);
      end;
    close(f);
    close(g);
  end.