Написать программу для нахождения НОК без использования ячеек в Excel VBA

Question

Информатика

Степан

12 апреля, 10:42

Написать программу для нахождения НОК без использования ячеек в Excel VBA

+1

Ответы (1)

Знаете ответ?

Альберт · Answer 1

Sub HOK ()

Dim c As Long, NOK As Long

a = CInt (InputBox ("Введите первое число"))

b = CInt (InputBox ("Введите второе число"))

If a = b Then

NOK = a

Else

c = a * b

Do

If a > b Then a = a - b Else b = b - a

Loop Until a = b

NOK = c / a

End If

MsgBox "НОК=" + Str (NOK)

End Sub