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

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

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

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

textual
                            Листинг программы 
                        

                            Sub DigitCount(K As Integer, C As Integer, S As Integer)
    C = C + 1
    S = S + (K Mod 10)
    K = K \ 10
    If K > 0 Then DigitCount K, C, S
End Sub
Sub Test()
      A% = 1234
      CC% = 0
      SS% = 0
      DigitCount A%, CC%, SS%
      Debug.Print CC%, SS%
End Sub
                        

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

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

Похожие ответы