imoimc 2016-07-27 00:25:53
点我顶贴
收藏
删除
var i,k,a,x,y,ans,b:longint;
begin
readln(x,y);
a:=y div x;
if(y mod x <>0) then
writeln(0)
else
begin
ans:=0;
for i:=2 to a do
begin
if a mod i =0 then
begin
inc(ans);
while a mod i =0 do
begin
a:=a div i;
end;
end;
end;
b:=1;
for i:=1 to ans do
b:=2*b;
writeln(b);
end;
end.