program Debug; var z, max, res, pom, t: integer; H, L: integer; function power(n: integer): integer; begin power:=round(exp(n*ln(2))); end; begin readln(z); while z>0 do begin z:=z-1; readln(max, res); { res:=power(res);} H:=((max-1) div res) * res; L:=((H-1) div res)*res; if (L>=1) and (H>L) and (H