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

Question

Информатика

Арсюта

20 августа, 05:19

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

+4

Ответы (1)

Знаешь ответ?

Софроний · Answer 1

Var

a, b:integer;

begin

Write ('Введите два натуральных числа '); Readln (a, b);

while ab do

if a > b then a : = a - b

else b : = b - a;

Writeln ('НОД=', a)

end.

Тестовое решение:

Введите два натуральных числа 28 16

НОД=4