{TASK Y1984}
{LANG PASCAL}
program Y1984;
type mas=array[0..100,0..100] of integer;
     mas1=array[1..100] of integer;
var z,x,m,n,i,j,k,l,q:integer;
    a:mas;
    b:mas1;
begin
readln(n);
readln(m);
for i:=0 to n-1 do
for j:=0 to n-1 do
a[i,j]:=2;
for j:=1 to m do
begin
 read(l,k,a[l,k]);
 a[k,l]:=a[l,k];
 readln;
end;
for i:=0 to n-1 do
for j:=0 to n-1 do
for K:=0 to n-1 do
begin
if (a[i,j]=1)and(a[j,k]=1)then
begin
a[i,k]:=0;
a[k,i]:=0;
end;
if (a[i,j]=0)and(a[j,k]=0)then
begin
a[i,k]:=0;
a[k,i]:=0;
end;
if (a[i,j]=0)and(a[j,k]=1)then
begin
a[i,k]:=1;
a[k,i]:=1;
end;
if (a[i,j]=1)and(a[j,k]=0)then
begin
a[i,k]:=1;
a[k,i]:=1;
end;

end;
readln(q);
for i:=1 to q do
begin
readln(z,x);
b[i]:=a[z,x];
end;
for i:=1 to q do
writeln(b[i]);
end.