Срочно! очень надо! напишите программу вычисления наименьшего общего кратного следующих...

Question

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

Comments

Когда "срочно и очень надо", на баллы не скупятся )))

---

обидка

---

Нет, просто не люблю людей, которые "а мне надо" и в то же время им наплевать на труд других.

Answer 1

Function gcd(a,b: longint): longint;
{ Нахождение НОД }
var
  i: longint;
begin
  while b <> 0 do
  begin
    a := a mod b;
    i := b; b := a; a := i
  end;
  gcd := a
end;

function lcm(a,b:longint):longint;
{ Нахождение НОК }
begin
  lcm:=a*b div gcd(a,b)
end;

begin
  Writeln('НОД(36;54;18;15)=',lcm(36,lcm(54,lcm(18,15))))
end.

Результат выполнения программы:
НОД(36;54;18;15)=540