{
TASK:Y1984
LANG:pascal
}
program y1984;
var a,b,r,c,d:array[0..1024]of integer;

    n,m:0..1024;
    q:1..100;
    i,j,k,l,x,y:integer;
begin
 readln(n);
 readln(m);
 for i:=1 to m do
 readln(a[i],b[i],r[i]);
 k:=3;
 readln(q);
 for i:=1 to q do
 readln(x,y);
 if r[1]=1 then
     begin c[1]:=a[1];d[1]:=b[1];end else begin c[1]:=a[1];c[2]:=b[1];end;
 for i:=2 to m do
 begin
   if r[i]=1 then
   begin
    for j:=1 to i-1 do
    begin
     if c[j]=a[i] then begin d[i]:=b[i];c[i]:=a[i];end
     else
     if c[j]=b[i] then begin d[i]:=a[i];c[i]:=b[i];end
     else
     if d[j]=a[i] then begin c[i]:=b[i];d[i]:=a[i];end
     else
     if d[j]=b[i] then begin c[i]:=a[i];d[i]:=b[i];end;end;end else
    if r[i]=0 then begin
    for j:=1 to i-1 do
    begin
     if c[j]=a[i] then begin c[i]:=b[i];end else
     if c[j]=b[i] then begin c[i]:=a[i];end else
     if d[j]=a[i] then begin d[i]:=b[i];end else
     if d[j]=b[i] then begin d[i]:=a[i];end;end;end;
    end;
 for i:=1 to n do begin
 if  c[i]=x then begin
 for j:=1 to n do begin
 if  c[j]=y then k:=0 else
 if  d[j]=y then k:=1;end;end else
 if  d[i]=x then begin
 for j:=1 to n do begin
 if  d[j]=y then k:=0 else
 if  c[j]=y then k:=1;end;end;end;
 if k=3 then k:=2;
 writeln(k);
 end.