Описать процедуру DigitCountSum(K, C, S), находящую количество цифр числа - VB

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

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

Описать процедуру DigitCountSum(K, C, S), находящую количество C цифр целого положительного числа K, а также их сумму S (K — входной, C и S — выходные параметры целого типа). С помощью этой процедуры найти количество и сумму цифр для каждого из пяти данных целых чисел.

Решение задачи: «Описать процедуру DigitCountSum(K, C, S), находящую количество цифр числа»

textual
Листинг программы
  1. Sub DigitCount(K As Integer, C As Integer, S As Integer)
  2.     C = C + 1
  3.     S = S + (K Mod 10)
  4.     K = K \ 10
  5.     If K > 0 Then DigitCount K, C, S
  6. End Sub
  7. Sub Test()
  8.       A% = 1234
  9.       CC% = 0
  10.       SS% = 0
  11.       DigitCount A%, CC%, SS%
  12.       Debug.Print CC%, SS%
  13. End Sub

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


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

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

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

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

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

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