End Sub

Loop

End If

Else

Dim A As Integer, B As Integer, NOD As Integer

Option Explicit

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

Алгоритм решения и его тестирование

Постановка задачи

Пример решения задачи

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

Формальная постановка задачи:

Дано: A, B.

Найти: NOD

2. Контрольный пример:

A=35; B=14; NOD=7.

	A B   A=B     A>B   B A     NOD	нет     да
нет     да	нет     нет	да

Private Sub Form_Load()

A = CInt(InputBox("Введите А:"))

B = CInt(InputBox("Введите B:"))

Do Until A = B

If A > B Then

A = A - B

B = B - A

NOD = A

MsgBox ("НОД=" + Str(NOD))