Получить наибольшее целое k - VB

Узнай цену своей работы

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

Дано целое число m>1. Получить наибольшее целое k, при котором 4(в степени"k")<m Спасибо за помощь))

Решение задачи: «Получить наибольшее целое k»

textual
Листинг программы 
Dim m As Long
Dim k As Long
Dim p As Long
 
Private Sub Command1_Click()
m = Val(Text1.Text)
k = 0
p=1
Do Until p >= m
   k = k + 1
   p=p*4
Loop
MsgBox "ответ " & k - 1
End Sub

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

9   голосов , оценка 4.111 из 5
Похожие ответы