сервис вопросов и ответовСоставить программу, подсчитывающую количество цифр числа n, сумму его цифр и определяющую его первую цифру
5-9 класс|
|
Ksenia62
01 янв. 2016 г., 16:23:01 (8 лет назад)
Shka121
01 янв. 2016 г., 17:52:13 (8 лет назад)
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
Ответить
Другие вопросы из категории
Читайте также
1.Составьте программу, выводящую на экран все двухзначные числа, у которых сумма цифр равна 8.
2.Составьте программу вычисления количества трёхзначных чисел палиндромов ( чисел, которые читаются одинаково слева направо и справа налево).
3.Найти двухзначные числа, которые делятся на сумму своих цифр
4.Составьте программу вывода количества трёхзначных чисел, у которых цифры упорядочены строго по убыванию.
РЕБЯТА СРОЧНО!!!!!!!!!!!
1) Составьте программу вычисления в массиве A(N) суммы всех чисел, кратных 3. 2) Составьте программу вычисления в массиве B(8) суммы отрицательных
элементов. 3) Составьте программу вычисления среднего арифметического элементов массива. Пожалуйста.. очень надо!
1)Составьте программу,которая заполняет массив e[1..11] случайными целыми числами в диапазоне от -15 до 1 и находит количество элементов кратных 5.
2)Составьте программу,которая заполняет массив e[1..8] случайными целыми числами в диапазоне от 1 до 20 и находит сумму элементов с нечётными значениями и количество элементов кратных 3.
3)Составьте программу,которая заполняет массив e[1..14] случайными целыми числами в диапазоне от -10 до 10,затем изменяет знак положительных элементов на противоположный,а отрицательные элементы заменяет на 0.Спасибо.
Вы находитесь на странице вопроса "Составить программу, подсчитывающую количество цифр числа n, сумму его цифр и определяющую его первую цифру", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.