Question

Пожалуйста помогите составить программу по вычислению НОК и НОД на Pascal

Answer 1

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

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

begin
  var (a,b):=ReadInteger2('Введите два натуральных числа:');
  var (НОД,НОК):=GCD_LCM(a,b);
  Writeln('НОД = ',НОД, ', НОК = ',НОК)
end.

Пример
Введите два натуральных числа: 13624 320
НОД = 8, НОК = 544960

Answer 2

Конечно, я могу помочь вам составить программу на языке Pascal для вычисления наибольшего общего делителя (НОД) и наименьшего общего кратного (НОК) двух чисел. Вот пример программы:

program NOD_NOK;

function GCD(a, b: Integer): Integer;
begin
  while b <> 0 do
  begin
    Result := a mod b;
    a := b;
    b := Result;
  end;
  Result := a;
end;

function LCM(a, b: Integer): Integer;
begin
  Result := (a * b) div GCD(a, b);
end;

var
  num1, num2: Integer;

begin
  writeln('Введите два числа:');
  readln(num1, num2);

writeln('Наибольший общий делитель (НОД): ', GCD(num1, num2));
  writeln('Наименьшее общее кратное (НОК): ', LCM(num1, num2));
end.

В этой программе мы определяем две функции: `GCD` (наибольший общий делитель) и `LCM` (наименьшее общее кратное). Функция `GCD` использует алгоритм Евклида для вычисления НОД двух чисел. Функция `LCM` вычисляет НОК, используя формулу `(a * b) / НОД(a, b)`.

Затем мы считываем два числа с помощью `readln` и выводим результаты вычислений с помощью `writeln`.

Обратите внимание, что я не смог найти конкретные источники, которые были бы полезны для этого ответа. Поэтому я предоставил вам общую программу на основе моих знаний о языке Pascal и алгоритмах для вычисления НОД и НОК.