pascal：已知两个数的最大公约数和最少公倍数求这两个数的最少差

pascal：已知两个数的最大公约数和最少公倍数求这两个数的最少差
给出a和b（a<=b）个最大公约数和最少公倍数,请找出a和b,使得b-a的值最少（因为a,b的解可能有多个）
恋恋冬季 1年前 已收到4个回答 举报
赞

知了睡啦 幼苗

共回答了19个问题采纳率：100% 举报

eadln(gys,gbs);
t:=gbs div gys;
for i:=trunc(sqrt(t)) downto 1 do
if t mod i=0 then begin f:=i;break;end;
writeln(f*gys,' ',t div f*gys);
gys:最大公约数
gbs:最小公倍数

1年前

9

Barry686 幼苗

共回答了1个问题 举报

从最大公约数搜索到最少公倍数不就行了？

1年前

1

婕诚1 幼苗

共回答了1个问题 举报

你得说出数据范围

1年前

0

tianzi19 幼苗

共回答了18个问题采纳率：88.9% 举报

program sa;
var a,b,i,j,n,m,t:integer;
begin
read(a,b);
for i:=a to b do
for j:=a to i do
if (i-j begin t:=i-j; n:=i; m:=j; end;
writeln(n,' ',m);
end.

1年前

0
可能相似的问题

你能帮帮他们吗

精彩回答

Copyright © 2024 YULUCN.COM - 雨露学习互助 - 19 q. 0.069 s. - webmaster@yulucn.com