Найти НОД трёх чисел, используя рекурсивную функцию нахождения НОД двух чисел - Pascal ABC

Формулировка задачи:

Помогите решить. 8. Найти НОД трёх чисел, используя рекурсивную функцию нахождения НОД двух чисел. Из трёх чисел найти пару чисел с максимальным НОД. (например, 25, 15, 45 НОД(25,15,45)=5, числа 15 и 45 имеют максимальный НОД=15).

Код к задаче: «Найти НОД трёх чисел, используя рекурсивную функцию нахождения НОД двух чисел - Pascal ABC»

textual
Function NOD(a,b : Longint) : Longint;
  Function nd(aa,bb : Longint) : Longint;
  Begin
    If aa mod bb = 0 then nd:=bb else nd:=nd(bb,aa mod bb);
  End;
Begin
  NOD:=a;
  If a<>b then
    If a>b then NOD:=nd(a,b)
      else NOD:=nd(b,a);
End;
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

15   голосов, оценка 4.267 из 5


СДЕЛАЙТЕ РЕПОСТ