Найти количество четырехзначных чисел, сумма цифр которых равна 9 - VB
Формулировка задачи:
Найти кол-во четырехзначных чисел, сумма цифр которых равна 9
Решение задачи: «Найти количество четырехзначных чисел, сумма цифр которых равна 9»
textual
Листинг программы
- Private Sub Command2_Click()
- k = 0 '- Количество чисел'
- For x = 1000 To 9999
- a = x \ 1000 '- Тысячи'
- y = x Mod 1000
- b = y \ 100 '- Сотни'
- z = y Mod 100
- c = z \ 10 '- Десятки'
- d = z Mod 10 '- Единицы'
- s = a + b + c + d '- Сумма'
- If s = 9 Then k = k + 1
- Next x
- Print k
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д