[Tyvj 2869] 혈연관계

var
 dp:array[0..300,0..300]of longint;
 p:array[0..300,0..300]of longint;  //p[i,j]: i    p[i,j] p[i,0]: i p[i,0]   
 w,x:array[0..300,1..2]of longint;  //x[i,1/2]: i    w[i,1]:   i      w[i,1] w[i,2]:  i     w[i,2]
 rudu:array[0..300]of longint;   // i   
 tt:array[0..90000,-1..300]of integer;
 z:array[0..300]of longint;
 t:ansistring;
 i,j,k,l,o:longint;
 n,m,ans:longint;
 a,b,c,v:longint;

procedure did(kk,a,b:longint);
var i,j,max,yu,ax,m,n,v:longint;
begin
 if tt[a,-1]>tt[b,-1]
 then max:=tt[a,-1]
 else max:=tt[b,-1];
 yu:=0;
 for i:=max downto 0 do
  begin
   tt[kk,i]:=(tt[a,i]+tt[b,i]+yu) mod 10;
   yu:=(tt[a,i]+tt[b,i]+yu) div 10;
  end;
 if (tt[kk,max]=0)and(max>=1)
 then dec(max);
 tt[kk,-1]:=max;
 yu:=0;
 for i:=0 to max do
  begin
   v:=tt[kk,i]+yu*10;
   tt[kk,i]:=v div 2;
   yu:=v mod 2;
  end;
 if yu<>0
 then begin tt[kk,-1]:=max+1; tt[kk,max+1]:=5; end;
end;

function f(a,b:longint):longint;
var c:longint;
begin
  if (w[a,2]<w[b,2])
  then begin c:=a; a:=b; b:=c; end;

  if tt[dp[a,b],0]<>-1
  then exit(dp[a,b])
  else
   begin
    did(dp[a,b],f(x[a,1],b),f(x[a,2],b));//dp[a,b]:=(f(x[a,1],b)+f(x[a,2],b))/2;
    exit(dp[a,b]);
   end;
end;

begin
 readln(n,m);
 for i:=1 to m do
  begin
   readln(a,b,c);
   x[a,1]:=b; x[a,2]:=c;
   inc(rudu[a],2);
   inc(p[b,0]); inc(p[c,0]);
   p[b,p[b,0]]:=a; p[c,p[c,0]]:=a;
  end;

 while w[0,1]<>n do
  begin
  z[0]:=0;
  for i:=1 to n do
   if rudu[i]=0
   then
    begin
     inc(w[0,1]); w[i,2]:=w[0,1]; w[w[0,1],1]:=i;
     for j:=1 to p[i,0] do
      begin
       inc(z[0]);
       z[z[0]]:=p[i,j];
      end;
     rudu[i]:=-1;
    end;
  for i:=1 to z[0] do
   dec(rudu[z[i]]);
  end;

 o:=0;
 for i:=1 to n do
  for j:=1 to n do
   if i=j
   then begin inc(o); dp[i,j]:=o; tt[o,0]:=1; end
   else
    if (x[i,1]=0)and(x[j,1]=0)
    then begin  inc(o); dp[i,j]:=o; tt[o,0]:=0; end
    else begin  inc(o); dp[i,j]:=o; tt[o,0]:=-1; end;

 readln(m);
 for i:=1 to m do
  begin
   readln(a,b);
   ans:=f(a,b);
   for j:=tt[ans,-1] downto 1 do
    if tt[ans,j]=0
    then dec(tt[ans,j])
    else break;
   if tt[ans,0]=1
   then writeln('100%')
   else
    if (tt[ans,0]=0)and(tt[ans,-1]=0)
    then writeln('0%')
    else
     begin
      for j:=1 to 2 do
       if tt[ans,j]<>0
       then begin v:=j; break; end;
      if v=0
      then write('0')
      else
       for j:=v to 2 do
        write(tt[ans,j]);
      if tt[ans,-1]>2
      then write('.');
      for j:=3 to tt[ans,-1] do
       write(tt[ans,j]);
      writeln('%');
     end;
  end;
end.