讨论 / 成功AC,爽
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.

#1 imoimc@2016-07-27 00:26:11
回复 删除
pascal

查看更多回复
提交回复