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

Question

Информатика

Светланыч

26 июля, 19:04

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

+2

Ответы (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