Найти количество четырехзначных чисел, сумма цифр которых равна 9 - VB

Узнай цену своей работы

Формулировка задачи:

Найти кол-во четырехзначных чисел, сумма цифр которых равна 9

Решение задачи: «Найти количество четырехзначных чисел, сумма цифр которых равна 9»

textual
Листинг программы
  1. Private Sub Command2_Click()
  2. k = 0 '- Количество чисел'
  3. For x = 1000 To 9999
  4.     a = x \ 1000 '- Тысячи'
  5.    y = x Mod 1000
  6.     b = y \ 100 '- Сотни'
  7.    z = y Mod 100
  8.     c = z \ 10 '- Десятки'
  9.    d = z Mod 10 '- Единицы'
  10.    s = a + b + c + d '- Сумма'
  11.    If s = 9 Then k = k + 1
  12. Next x
  13. Print k
  14. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

6   голосов , оценка 4.167 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы