Подпрограмма нахождения наименьшего общего кратного для трёх натуральных чисел - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

-Нужно написать подпрограмму, реализующую решение задачи Составить программу для нахождения наименьшего общего кратного для трёх натуральных чисел Заранее огромное спасибо!
Всем всё равно большое спасибо) Этот код я нашел на другом сайте, надеюсь, он вам пригодится:3

Решение задачи: «Подпрограмма нахождения наименьшего общего кратного для трёх натуральных чисел»

textual
Листинг программы
function LCM(c, d: Longint): Longint;
var m: Longint;
begin
  m:=c*d;
  while (c<>0) and (d<>0) do
    if c>d then c:=c mod d else d:=d mod c;
  LCM:=m div (c+d);
end;
var a, b, c: Integer;
begin
  Write('Введите три числа: '); ReadLn(a,b,c);
  WriteLn('НОК: ',LCM(LCM(a,b),c));
end.

Объяснение кода листинга программы

  1. В функции LCM объявлены две переменные типа Longint - c и d.
  2. В цикле while происходит взаимодействие между переменными c и d.
  3. Если c больше d, то значение c делится на d, иначе значение d делится на c.
  4. После выполнения цикла, значение переменной m устанавливается равным произведению c и d.
  5. Затем, значение переменной m делится на сумму c и d, что дает наименьшее общее кратное.
  6. В основной программе объявлены три переменные типа Integer - a, b и c.
  7. Пользователю предлагается ввести три числа.
  8. Введенные числа сохраняются в переменных a, b и c.
  9. Вызывается функция LCM с аргументами LCM(LCM(a,b),c).
  10. Результат выводится на экран.

Оцени полезность:

15   голосов , оценка 3.8 из 5
Похожие ответы