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

Question

Информатика

Тася

9 апреля, 05:55

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

+4

Ответы (1)

Знаете ответ на вопрос?

Доняха · Answer 1

Var a, b:integer;

begin

write ('a=') ; readln (a) ;

write ('b=') ; readln (b) ;

while (a0) and (b0) do

if a>b then a:=a mod b else b:=b mod a;

writeln ('НОД=', a+b) ;

end.

Пример:

a=125

b=50

НОД=25