讨论 / AC代码 Pascal
panzhihan 2019-03-05 04:43:46
点我顶贴 收藏 删除
var

i,k,a,x,y,ans,b:longint;

begin

readln(x,y);

a:=y div x;

if(y mod x <>0) then

begin

writeln(0)

end

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.

查看更多回复
提交回复