АЛГОРИТМ ЕВКЛИДА (нахождение наибольшего общего делителя (НОД) двух натуральных чисел)
Входные данные: m, n – натуральные числа; Выходные данные: nod – наибольший общий делитель этих двух чисел; Вспомогательные данные: x, y – хранят значения m, n для их дальнейшего изменения
БЛОК-СХЕМА н xy x>y x:=x-yy:=y-x Вывод nod конец Ввод m, n x:=m y:=n данет да Nod:=x нет Паскаль-программа Program nod; Var m,n,x,y,nod: word; BEGIN WriteLn(Введите два числа:); readLn(m,n); x:=m; y:=n; While xy Do If x > y Then x:=x-y else y:=y-x; Nod:=x; WriteLn(НОД чисел,m, и,n,равен,nod:5); END.