52

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

13 февраля 2023

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

категория: информатика



39

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)

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...