最大公约数和最小公倍数问题

题目描述

输入二个正整数x0,y0(2<=x0<100000,2<=y0<=1000000),求出满足下列条件的P,Q的个数

条件:

1.P,Q是正整数

2.要求P,Q以x0为最大公约数,以y0为最小公倍数.

试求:满足条件的所有可能的两个正整数的个数.

输入输出格式

输入格式：

二个正整数x0,y0

输出格式：

一个数，表示求出满足条件的P,Q的个数

输入输出样例

输入样例#1：

3 60

输出样例#1：

4

说明

P,Q有4种

3 60 15 12 12 15 60 3

两个数的乘积=最大公约数*最小公倍数

var
n,m,i,k,g:longint;
function pd(a,b:longint):boolean;
var r:longint;
begin
repeat
r:=a mod b;
a:=b; b:=r;
until b=0;
if a=n then exit(true)
else exit(false);
end;
begin
readln(n,m);
for i:=n to m do
if (n*m) mod i=0 then
if pd(i,(n*m) div i) then inc(k);
writeln(k);
end.