НОД через рекурсию

@Aleshh · Регистрация: 15.01.2017

Дано a и b. Найти НОД введённых чисел. Через рекурсию.

@Puporev · 15.02.2017, 20:43

Pascal

function NOD(a,b:integer):integer;
begin
if a=b then NOD:=a
else if a>b then NOD:=NOD(a-b,b)
else NOD:=NOD(b-a,a);
end;

@Joy · 17.02.2017, 10:05

Pascal

1	function gcd(a,b:integer):integer:=(b<>0?gcd(b, a mod b):a);

@Aleshh 0 / 0 / 0 Регистрация: 15.01.2017 Сообщений: 84
		1
	НОД через рекурсию 15.02.2017, 20:14. Показов 982. Ответов 2 Метки нет (Все метки) Дано a и b. Найти НОД введённых чисел. Через рекурсию. 0

Опции темы

Решение