Cod sursa(job #760677)

Utilizator andrei_toaderToader Andrei Sorin andrei_toader Data 22 iunie 2012 16:40:13
Problema Fructe Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.31 kb
Raporteaza aceasta sursa 
program fructe;
var f,g:text;
    t,i:byte;
    p,b:longint;

begin
 assign (f,'fructe.in'); reset(f);
 assign (g,'fructe.out'); rewrite (g);
 readln (f,t);
 for i:=1 to t do
 begin
  readln (f,p,b);
  if b mod 2=1 then
   writeln (G,1)
  else
   writeln (g,0);
 end;
 close (f); close (g);
end.