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

Оцени полезность:

9   голосов , оценка 3.556 из 5
Похожие ответы