метод евклида для вычисления нод 2-ух натуральных чисел формируется так необходимо

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

Задать свой вопрос
Яна Косарецкая
Ошибочная формулировка, у Евклида - "пока числа не станут равны друг-другу". Т.е. пока РАЗНОСТЬ чисел не станет одинакова нулю.
1 ответ
Var
  a,b:integer;
begin
  Write('Введите два естественных числа '); Readln(a,b);
  while alt;gt;b do
    if a gt; b then a := a - b
    else b := b - a;
  Writeln('НОД=',a)
end.

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


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт