Question

СРОЧНО решите пожалуйста задачуPascal Напишите процедуру, которая вычисляет наибольший общий делитель и наименьшее общее кратное двух натуральных чисел и возвращает их через изменяемые параметры. Пример: Введите два натуральных числа: 10 15 НОД(10,15)=5 НОК(10,15)=30

Answer 1

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

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

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

Answer 2

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

pascalCopy code
program GCD_LCM;

var
  num1, num2, gcd, lcm, temp, remainder: integer;

procedure CalculateGCDAndLCM(var a, b, g, l: integer);
begin
  if a < b then
  begin
    temp := a;
    a := b;
    b := temp;
  end;

  while b <> 0 do
  begin
    remainder := a mod b;
    a := b;
    b := remainder;
  end;

  g := a;
  l := (num1 * num2) div g;
end;

begin
  writeln('Введите два натуральных числа:');
  readln(num1, num2);

  CalculateGCDAndLCM(num1, num2, gcd, lcm);

  writeln('НОД(', num1, ',', num2, ') = ', gcd);
  writeln('НОК(', num1, ',', num2, ') = ', lcm);
end.

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