Вопрос по информатике:
Составить программу, подсчитывающую количество цифр числа n, сумму его цифр и определяющую его первую цифру
- 25.06.2017 21:02
- Информатика
- remove_red_eye 2518
- thumb_up 19
Ответы и объяснения 1
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)))
- 26.06.2017 18:20
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.