Чему равна сумма цифр числа - VB
Формулировка задачи:
В программу вводится натуральное число n (n >= 100).
Определить: чему равна сумма его цифр.
Решение задачи: «Чему равна сумма цифр числа»
textual
Листинг программы
Function sumDig(n as integer) As integer if n < 0 then sumDig=sumDig(abs(n)) elseif n < 10 then sumDig=n else sumDig=(n mod 10)+sumDig(n \ 10) end if End function