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

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

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

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

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.500 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы