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

Question

Информатика

Оля

18 апреля, 08:39

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

+5

Ответы (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