Dim n As Integer n = InputBox("Введите n") Dim summ As Integer Dim i As Integer For i = 1 To Len(n) summ += CInt(Mid(CStr(n), i, 1)) ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 Next MsgBox("количество цифр числа n=" & Len(n) & ", сумма его цифр равна " & summ & " и первая цифра -" & CInt(Mid(CStr(n), 1, 1)))
Answers & Comments
Dim n As Integer
n = InputBox("Введите n")
Dim summ As Integer
Dim i As Integer
For i = 1 To Len(n)
summ += CInt(Mid(CStr(n), i, 1))
' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
Next
MsgBox("количество цифр числа n=" & Len(n) & ", сумма его цифр равна " & summ & " и первая цифра -" & CInt(Mid(CStr(n), 1, 1)))