Составьте программу нахождения наибольшего общего делителя для двух чисел.…

Question

55

Составьте программу нахождения наибольшего общего делителя для двух чисел. (Воспользоваться алгоритмом Евклида). Алгоритм Евклида поиска наибольшегообщего делителя двух чисел: вычитай из большего меньшее, пока числа не станут равны. Полученное значение и будет искомым.

категория: информатика

ответить

в избранное ссылка

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

nuzlar · Accepted Answer

86

nuzlar

18 августа 2022

Var a, b: word; function NOD (x, y: integer): integer; begin repeat if abs (x) > abs (y) then x: =x mod y else y: =y mod x; until (x=0) or (y=0); NOD: =abs (x+y); end; begin write ('a='); read (a); write ('b='); readln (b); writeln ('NOD (a,b)=', NOD (a, b); end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: