求任意五个自然数的最小公倍数 pascal

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/11/09 06:00:20

var
  a:array[1..5] of longint;
  i:longint;
function gcd(a,b:longint):longint;
begin
  if b = 0 then exit(a);
  exit(gcd(b,a mod b));
end;
function lcm(a,b:longint):longint;
begin
  exit(a * b div gcd(a,b));
end;
begin
  for i := 1 to 5 do read(a[i]);
  for i := 2 to 5 do a[1] := lcm(a[1],a[i]);
  writeln(a[1]);
end.

求任意五个自然数的最小公倍数 pascal pascal 输入任意两个自然数M和N,求两个自然数M和N的最大公约数和最小公倍数 pascal 输入任意两个自然数M和N,求两个自然数M和N的最大公约数和最小公倍数? .求两个自然数M和N的最小公倍数.pascal pascal语言求n个自然数的最大公约数和最小公倍数五个连续的自然数和为50,求这五个自然数的最小公倍数五个连续自然数的和是50,求这五个连续自然数的最小公倍数. 五个连续自然数的和是50,求这五个自然数的最小公倍数. pascal语言：用”递归算法”求2个自然数的最大公约数与最小公倍数 pascal求两个数的最小公倍数 pascal求最小公倍数和最大公约数 pascal 求最大公约数和最小公倍数