Cod sursa(job #222355)

Utilizator Vlad-andreiVlad Fisca Vlad-andrei Data 21 noiembrie 2008 22:50:52
Problema Fructe Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
program fructe;
var f,g:text;
    p,b,i:longint;
    t:1..100;
begin
    assign(f,'fructe.in');
    assign(g,'fructe.out');
    reset(f);
    rewrite(g);
    read(f,t);
    for i:=1 to t do
    begin
      read(f,p,b);
      if(b mod 2<>0)then writeln(g,1);
      if(b mod 2=0) then writeln(g,0);
    end;
    close(f);
    close(g);
end.