Cod sursa(job #125771)

Utilizator ioalexno1Alexandru Bunget ioalexno1 Data 20 ianuarie 2008 17:55:56
Problema Fructe Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
program alex;
var f:text;
    i,t,p,b:longint;
    c:array[1..100]of 0..1;
begin
assign(f,'fructe.in');reset(f);
readln(f,t);
for i:=1 to t do
    begin
    readln(f,p,b);
    if b mod 2 then c[i]:=0
               else c[i]:=1;
    end;
close(f);
assign(f,'fructe.out');rewrite(f);
for i:=1 to t do
    writeln(f,c[i]);
close(f);
end.