Вопрос задан 19.02.2019 в 20:34. Предмет Информатика. Спрашивает Низова Милана.

Алгоритм евклида для вычисления нод двух натуральных чисел формируется так нужно заменять большее

число на разность большего и меньшего до тех пор пока одно из них не станет равно нулю тогда второе и есть нод напишите программу которая реализует этот алгоритм какой цикл тут нужно использовать
0 0
Перейти к ответам

Ответы на вопрос

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Енковский Максим.
Var
  a,b:integer;
begin
  Write('Введите два натуральных числа '); Readln(a,b);
  while a<>b do
    if a > b then a := a - b
    else b := b - a;
  Writeln('НОД=',a)
end.

Тестовое решение:
Введите два натуральных числа 28 16
НОД=4


0 0
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.

Для реализации алгоритма Евклида, можно использовать цикл "while". Вот пример программы на языке Python, которая реализует данный алгоритм:

```python def euclidean_algorithm(a, b): while b != 0: a, b = b, a % b return a

num1 = int(input("Введите первое число: ")) num2 = int(input("Введите второе число: "))

gcd = euclidean_algorithm(num1, num2)

print("НОД чисел", num1, "и", num2, "равен", gcd) ```

В данной программе функция `euclidean_algorithm` принимает два аргумента `a` и `b`, и возвращает их НОД, вычисляя его по алгоритму Евклида. Затем, пользователю предлагается ввести два числа `num1` и `num2`, и вызывается функция `euclidean_algorithm` для вычисления НОД этих чисел. Результат выводится на экран.

Цикл `while` выполняется, пока значение переменной `b` не станет равным нулю. В каждой итерации цикла, значения `a` и `b` обновляются, заменяя большее число на разность большего и меньшего. Когда `b` становится равным нулю, значение `a` будет содержать НОД исходных чисел.

0 0

Топ вопросов за вчера в категории Информатика

Последние заданные вопросы в категории Информатика

Задать вопрос