Question

СРОЧНО!!Напишите функцию в Паскале,которая вычисляет наименьшее общее кратное двух чисел

Answer 1

Напишу лучше полностью, а то есть уникумы, которые любят отмечать "неполное решение".
var m,n,a,b:integer; nok:real;
begin
  readln(m,n);
  a:=m;
  b:=n;
while m<>n do
  if m>n then m:=m-n
    else n:=n-m;
  nok:=a*b/m;
  writeln(nok);
end.

Answer 2

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

pascalCopy code
function НОК(a, b: Integer): Integer;
var
  gcd, lcm: Integer;
begin
  // Вычисляем наибольший общий делитель (НОД) с помощью алгоритма Евклида
  while b <> 0 do
  begin
    gcd := b;
    b := a mod b;
    a := gcd;
  end;

  // Вычисляем НОК с использованием свойства: НОК(a, b) = (|a * b|) / НОД(a, b)
  lcm := Abs(a * b) div gcd;
  
  // Возвращаем результат
  Result := lcm;
end;

Чтобы использовать эту функцию, вы можете вызвать её из другой части кода и передать ей два числа. Например:

pascalCopy code
var
  num1, num2, result: Integer;
begin
  num1 := 12;
  num2 := 18;
  
  result := НОК(num1, num2);
  
  WriteLn('Наименьшее общее кратное чисел ', num1, ' и ', num2, ' равно ', result);
end.

В этом примере мы передали числа 12 и 18 в функцию НОК, и она вернула результат 36, который является наименьшим общим кратным чисел 12 и 18.