Описать процедуру 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д