讨论 / 水啊
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.

查看更多回复
提交回复