Напишите программу вычисления наименьшего общего крат­ного следующих четырёх чисел: 36, 54, 18 и 15

Напишите программу вычисления наименьшего общего крат­ного следующих четырёх чисел: 36, 54, 18 и 15. Исполь­зуйте процедуру вычисления наибольшего общего делителя двух чисел.

Ответ

Наименьшее общее кратное (НОК) двух целых чисел m и n есть наименьшее натуральное число, которое делится на m и n без остатка.

НОД(m, n) и НОК(m, n) связаны соотношением:
НОД(m, n) · НОК(m, n) = m · n.

program nok;
var i, х, у, z, t1, t2: integer;
procedure nod (а, b: integer; var с: integer);
begin
while а<>b do
if а>b then а:=а-b else b:=b-а; с:=а
end;
begin
х:=36; у:=54;
nod (х, у, z);
t1:=x*y div z;
х:=18; у:=15;
nod (х, у, z);
t2:=x*y div z;
x:=t1; y:=t2;
nod (х, у, z); writeln (‘НОК = ‘ , x*y/z);
end.