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