stz 2012-07-23 21:13:00
点我顶贴
收藏
删除
var x0,y0,s,d,t
:longint;
function o(a,b:longint):longint;
begin
if a mod b=0 then o:=b
else o:=o(b,a mod b);
end;
function p(a,b:longint):longint;
begin
p:=(a*b) div o(a,b);
end;
begin
read(x0,y0);
for s:=2 to 1600 do
for d:=2 to 1600 do
if (x0=o(s,d)) and(y0=p(s,d)) then inc(t);
write(t);
end.