Cod sursa(job #244199)

Utilizator qSortMorariu Razvan qSort Data 14 ianuarie 2009 18:15:46
Problema Fructe Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.27 kb
Raporteaza aceasta sursa 
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,1)
	else writeln(g,0);
	end;
close(f); close(g);
end.