Составить программу, подсчитывающую количество цифр числа n, сумму его цифр и определяющую его первую цифру

Составить программу, подсчитывающую количество цифр числа n, сумму его цифр и определяющую его первую цифру
Гость
Ответ(ы) на вопрос:
Гость
VB. 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)))
Не нашли ответ?
Ответить на вопрос
Похожие вопросы