free pascal 求最大公约数与最小公倍数

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/07 02:21:55
free pascal 求最大公约数与最小公倍数
xn0Em@eɿ<צAQbN :V>Gu-}u|}Oy=}qՊ6(cq- ̆if3ݣԤ;`5 6=B # e+{yNRMHPY6Qf"#j{,QR̵lTRR_N\nOn6M

free pascal 求最大公约数与最小公倍数
free pascal 求最大公约数与最小公倍数

free pascal 求最大公约数与最小公倍数
var a,b,aa,bb,r:longint;
begin
readln(a,b);
aa:=a; bb:=b;
while bb<>0 do
begin
r:=aa mod bb; aa:=bb; bb:=r;
end;
writeln(aa,' ',a*b div aa);
end.
麻烦给分啦