Question

Найти наибольший делитель натурального чисел 12 18. На языке Паскаль

Answer 1

Відповідь:

program nodd;

var chislo1, {первое число}

   chislo2, {второе число}

   nod,     {наибольший общий делитель}

   r:integer;  {остаток отделения 1-го числа на 2-е}

begin

Writeln ('Vvedite chisla:');

Readln (chislo1,chislo2); {ввод двух чисел с клавиатуры}

     while (chislo1 mod chislo2)<>0 do {цикл выполняется пока остаток <> 0}

        begin

          r:=chislo1 mod chislo2;  {вычисление остатка 1-го числа на 2-ое}

          chislo1:=chislo2;        {присваиваем 2-е число 1-му}

          chislo2:=r;          {присваиваем остаток от деления 2-му числу}

        end;

nod:=chislo2;            {присваиваем 2-е число переменной nod}

Writeln ('NOD: ',nod);   {Вывод НОД}

Readln;

end.

Пояснення:

Answer 2

Для нахождения наибольшего делителя двух натуральных чисел 12 и 18, мы можем использовать алгоритм Евклида. Этот алгоритм основан на том, что наибольший общий делитель (НОД) двух чисел не меняется, если к большему числу прибавить или вычесть кратное меньшего числа.

На языке Паскаль код для нахождения НОД двух чисел может выглядеть так:

pascalCopy code
function GCD(a, b: Integer): Integer;
begin
  while b <> 0 do
  begin
    a := a mod b;
    // Обмен значениями переменных a и b
    a := a + b;
    b := a - b;
    a := a - b;
  end;
  Result := a;
end;

var
  num1, num2, result: Integer;
begin
  num1 := 12;
  num2 := 18;

  result := GCD(num1, num2);
  writeln('Наибольший делитель чисел ', num1, ' и ', num2, ' равен ', result);
end.

Запустив эту программу, вы получите ответ:

Copy code
Наибольший делитель чисел 12 и 18 равен 6

Таким образом, наибольший делитель чисел 12 и 18 равен 6.