codevs1012

题目地址：http://codevs.cn/problem/1012/

分析：

辗转相除法+剪枝

代码：

var

  x,y,i,j,a,b,n,m:longint;

begin

  readln(x,y);

  m:=0;

  for i:=x to y do

    for j:=x to y do

      if (i*j<y) or (i mod x<>0) or (j mod x<>0) 

        then continue

        else begin

               a:=i;

               b:=j;

               while a mod b<>0 do

                 begin

                   n:=a mod b;

                   a:=b;

                   b:=n

                 end;

               a:=i*j div b;

               if (b=x) and (a=y)

                 then m:=m+1

             end;

  writeln(m)

end.