作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/10 14:30:38
pascal:已知两个数的最大公约数和最少公倍数求这两个数的最少差
给出a和b(a<=b)个最大公约数和最少公倍数,请找出a和b,使得b-a的值最少(因为a,b的解可能有多个)
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:最小公倍数