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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/03 01:37:52
free pascal 求最大公约数与最小公倍数

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.
麻烦给分啦