穷举吧
function gcd(a, b:longint);//求a,b的最大工约数
  begin
    if b=0 then gcd:=a else gcd:=gcd(b, a mod b);
  end;
则
x0:=gcd(a,b);
y0:=(a*b)div x0;
..........

枚举法

楼上地说得好模糊 能不能讲清楚点


我在网上看见别人写的程序 有点不能理解 最后他用z所含的质数的个数表示了答案
我想问下为什么
Program P1131; 
var
 ans,x,y,z,p,k:longint;
 i:integer;

 begin
　　readln(x,y);
　　if(y mod x<>0)then
　　begin
　　  writeln(0); 
exit;
　　end;
　　z := y div x;
　　p:=2;
　　k:=0;
　　while(z>1) do
　　begin
　　  if(z mod p=0) then
　　  begin
　　　　inc(k);
　　　　while(z mod p=0) do z:=z div p;　　　　
　　  end;
　　  inc(p);　　　　　　　　  
　　end;
　　ans:=1; 
for i:=1 to k do
　　  ans:=ans*2;
　　writeln(ans);
 end.

var
f1,f2:text;
x3,x4,k,x1,x2:longint;
s:int64;
i:integer;
b,a:array[-1..1000000] of longint;
begin
 readln(x1,x2);x3:=x2;x4:=x1;
 for i:=2 to x2 do
　　  repeat
　　  if x2 mod i=0 then
　　　　begin
　　　　  x2:=x2 div i;a[i]:=a[i]+1;if a[i]=1 then begin k:=k+1;b[k]:=i;end;
　　　　end;
　　  until x2 mod i<>0;
 for i:=2 to x1 do
　　repeat
　　  if x1 mod i=0 then
　　　　begin
　　　　  x1:=x1 div i;a[i]:=a[i]-1;
　　　　end;
　　until x1 mod i<>0;
 s:=1;
 for i:=1 to k do
　　   if a[b[i]]>0 then s:=s*2;
　　 if x3 mod x4<>0 then writeln(0) else writeln(s);
end.

数学方法：分解质因数！！！