Цикл с условием - VB (58478)

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

Даны целые положительные числа A и B. Найти их наибольший общий делитель (НОД), используя алгоритм Евклида: НОД(A, B) = НОД(B, A mod B), если B не равно 0; НОД(A, 0) = A.

Решение задачи: «Цикл с условием»

textual
                            Листинг программы 
                        

                            FUNCTION NOD (a, b)
   IF a = 0 OR b = 0 THEN
      NOD = a + b
   ELSE
      IF a > b THEN
         NOD = NOD(a MOD b, b)
      ELSE
         NOD = NOD(a, b MOD a)
      END IF
   END IF
END FUNCTION
                        

Оцени полезность:

9 голосов , оценка 4.111 из 5

Похожие ответы