Процедура для нахождения суммы цифр - VB
Формулировка задачи:
Помогите решить:
Из заданного числа вычли сумму его его цифр. Из результата вновь вычли сумму его цифр и т.д. Сколько таких действий надо произвести, чтобы получился нуль
Решение задачи: «Процедура для нахождения суммы цифр»
textual
Листинг программы
- Private Sub Command1_Click()
- Dim ras As Integer, sum As Integer, a As Double, temp As Double
- a = Val(InputBox("Введите число : ", , 12345))
- temp = a
- sum = 0
- Do Until temp = 0
- sum = sum + temp Mod 10
- temp = temp \ 10
- Loop
- Print "Сумма цифр числа " & a & " = " & sum
- temp = a
- Do Until temp <= 0
- temp = temp - sum
- ras = ras + 1
- Loop
- Print sum & " можно вычесть из " & a & " " & ras & _
- " раз(а), "; "остаток = " & temp
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
