Как подсчитать сумму цифр всех целых чисел от 1 до n - VB

Узнай цену своей работы

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

подсчитать сумму цифр всех целых чисел от 1 до n.

Решение задачи: «Как подсчитать сумму цифр всех целых чисел от 1 до n»

textual
Листинг программы
  1. Function SumDigs(n as integer) As long
  2.    For i%=1 to n%
  3.         S$=Cstr(i%)
  4.         For j%=1 to len(S$)
  5.              SumDigs=SumDigs+Clng(Mid$(S$,i%,1))
  6.         Next j%
  7.    Next i%
  8. End Function

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


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

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

10   голосов , оценка 4.5 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы