Как подсчитать сумму цифр всех целых чисел от 1 до n - VB
Формулировка задачи:
подсчитать сумму цифр всех целых чисел от 1 до n.
Решение задачи: «Как подсчитать сумму цифр всех целых чисел от 1 до n»
textual
Листинг программы
- Function SumDigs(n as integer) As long
- For i%=1 to n%
- S$=Cstr(i%)
- For j%=1 to len(S$)
- SumDigs=SumDigs+Clng(Mid$(S$,i%,1))
- Next j%
- Next i%
- End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д