如果发现广告等破坏行为，请尽量将条目恢复到较早的版本而不是把相应内容直接删除，谢谢合作。

URAL/1355

来自"NOCOW"

跳转到: 导航, 搜索

program ural_1355; var 

t,u,a,b,ans:longint;

begin 

readln(t);
for u:=1 to t do
begin
 read(a,b);
 if b mod a>0 then begin writeln(0);continue;end;
 ans:=1;b:=b div a;
 while b and 1=0 do begin inc(ans);b:=b shr 1;end;
 a:=3;
 while a*a<=b do
 begin
  while b mod a=0 do begin inc(ans);b:=b div a;end;
  inc(a,2);
 end;
 if b>1 then inc(ans);
 writeln(ans);
end;

end.

来自"http://www.nocow.cn/index.php/URAL/1355"
个人工具