Hайти количество цифp в целом положительном числе (переделать с предусловием)

@Паша23 · Регистрация: 14.03.2016

Hайти количество цифp в целом положительном числе.

Visual Basic

 x = InputBox("Введите число", "Окно ввода данных")
        For i = 1 To 10
        If x > 10 ^ (i - 1) And x < 10 ^ i Then
        Label2.Caption = " число " & i & " цифры"
        End If
        Next
End Sub

~~Shersh~~ · 03.04.2016, 21:17

Visual Basic

x = InputBox("Введите число", "Окно ввода данных")
Label2.Caption=0
WHILE X
Label2.Caption=Label2.Caption+1
X=X\10
WEND

Опции темы