Cod sursa(job #244203)

Utilizator qSortMorariu Razvan qSort Data 14 ianuarie 2009 18:18:53
Problema Fructe Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.27 kb
program fructe;
var a,b,i,n:integer;
		f,g:text;
begin
assign(f,'fructe.in'); reset(f);
assign(g,'fructe.out'); rewrite(g);
read(f,n);
for i:=1 to n do
	begin
	readln(f,a,b);
	if b mod 2 =0 then writeln(g,0)
	else writeln(g,1);
	end;
close(f); close(g);
end.