作业帮 > 综合 > 作业

pascal语言:用”递归算法”求2个自然数的最大公约数与最小公倍数

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/12 04:48:01
pascal语言:用”递归算法”求2个自然数的最大公约数与最小公倍数
必须用递归算法!
{
不是整数的2b数据别给啊
}
var
a,b:longint;
function gcd(a,b:longint):longint; //(递归)最大公约数
begin
if b=0 then gcd:=a
else gcd:=gcd(b,a mod b);
end;
begin
readln(a,b);
writeln('GCD=',gcd(a,b),' ACM=',a*b div gcd(a,b)); //a*b div gcd(a,b)为最小公倍数
end.