这是错解：

---|---|---|---|---|---|---|---|--

var

x,y,i,j,t:longint;

function gcd(a,b:longint):longint;

begin

if b=0 then exit(a);

gcd:=gcd(b,a mod b);

end;

begin

readln(x,y);t:=0;

if x=y then begin writeln('1');halt;end;

for i:=1 to y do

for j:=1 to y do

if i*j=x*y then if gcd(i,j)=x then int(t);

writeln(t);

end.

---|---|---|---|---|---|---|---|---|---|

这是正解：

var

x,y,i,j,t:longint;

function gcd(a,b:longint):longint;

begin

if b=0 then exit(a);

gcd:=gcd(b,a mod b);

end;

begin

readln(x,y); t:=0;

if x=y then begin writeln(1); halt; end;

for i:=1 to y do

for j:=1 to y do

if i*j=x*y then if gcd(i,j)=x then inc(t);

writeln(t);

end.

---|---|---|---|---|---|---|---|---|---|---|-