codevs天梯 最大公约数与最小公倍数 水题

题目描述 Description

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

条件:  1.P,Q是正整数

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

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

代码：

var

  x,y,sum,temp,tot,t,z:longint;


function gcd(a,b:longint):longint;
var
  c:longint;
begin
  repeat
    c:=a mod b;
    a:=b;
    b:=c;
  until c=0;
  gcd:=a;
end;


begin
  readln(x,y);
  sum:=x*y;
  for temp:=x to y do
    begin
      tot:=sum div temp;
      z:=gcd(temp,tot);
      if z=x then
        if temp*tot div z=y then
          inc(t);
   end;
  writeln(t);
end.