Написать программу нахождения наибольшего общего делителя

Задание:

Написать программу нахождения наибольшего общего делителя (НОД) двух натуральных чисел. А) использовать оператор repeatб) использовать операторwhile

Решение:

var a,b: integer; function NOD (x,y: integer): integer; begin if x<>0 then NOD: =NOD (y mod x,x) else NOD: =y; end; begin readln (a,b); writeln ('НОД=', NOD (a,b); end.

Знаете другой ответ?

Отправить свой ответ