Question

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

Answer 1

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

function HOK(a,b:integer):integer;
begin
  Result:=a*b;
  while b>0 do (a,b):=(b,a mod b); // a - НОД
  Result:=Result div a
end;

begin
  Writeln('НОК(36,54,18,15)=',HOK(HOK(36,54),HOK(18,15)))
end.

Результат
НОК(36,54,18,15)=540