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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/05/24 00:31:56
freepascal求最大公约数与最小公倍数freepascal求最大公约数与最小公倍数freepascal求最大公约数与最小公倍数vara,b,aa,bb,r:longint;beginreadln

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