Как подсчитать сумму цифр всех целых чисел от 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

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

10   голосов , оценка 4.5 из 5
Похожие ответы