求任意五个自然数的最小公倍数 pascal
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/08/12 12:34:55
求任意五个自然数的最小公倍数 pascal
![](http://img.wesiedu.com/upload/8/53/853fa19e0cac5cdc10acdc1081eb1146.jpg)
![](http://img.wesiedu.com/upload/8/53/853fa19e0cac5cdc10acdc1081eb1146.jpg)
![求任意五个自然数的最小公倍数 pascal](/uploads/image/z/1076575-31-5.jpg?t=%E6%B1%82%E4%BB%BB%E6%84%8F%E4%BA%94%E4%B8%AA%E8%87%AA%E7%84%B6%E6%95%B0%E7%9A%84%E6%9C%80%E5%B0%8F%E5%85%AC%E5%80%8D%E6%95%B0+pascal)
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.
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 求最大公约数和最小公倍数