Как Подсчитать сумму цифр четырехзначного числа, вводимого с клавиатуры в Бейсике? - 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;