Как Подсчитать сумму цифр четырехзначного числа, вводимого с клавиатуры в Бейсике? - VB
Формулировка задачи:
Как Подсчитать сумму цифр четырехзначного числа, вводимого с клавиатуры в Бейсике?
Как написать прогу : 30 целых чисел из диапазона [-30; 70] вводятся с помощью генератора случайных чисел. Вычислить сумму двух самых больших чисел. Вывести эти числа и их сумму.В бейсике
Ничего не получается
Решение задачи: «Как Подсчитать сумму цифр четырехзначного числа, вводимого с клавиатуры в Бейсике?»
textual
Листинг программы
- Dim sum As Integer, A As Integer
- A = InputBox("Введите число -")
- While A
- sum = sum + A Mod 10
- A = A \ 10
- Wend
- Print "Сумма = "; sum;
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
