< >

Дано натуральное число N.Найти сумму цифр этого числа.(Qbasik)

Ответы

Ответ дал: hambis
0

INPUT A%
S$ = STR$(A%)
SUM = 0
FOR I = 1 TO LEN(S$)
SUM = SUM + VAL(MID$(S$,I,1))
NEXT I
PRINT SUM

Похожие вопросы
Русский язык
2 года назад
сделайте транскрипцию слов :  прикасается разложил ( по новому то есть с ъ и ь знаком)
Русский язык
2 года назад
В каком ряду во всех словах пропущена безударная гласная, проверяемая ударением? а) к...рабль, л...сеок, тр...вяной; б) п...сок, з...мля, б...рёза; в) н...беса, цв...ток, п...лянка; с) акв...рель,
Информатика
7 лет назад
В чем опасность программирования без подготовленного алгоритма решения задачи?
Алгебра
7 лет назад
на фото условие пожалуйста ответе
Математика
10 лет назад
Скороти дроби: 1)3*5*28/49*8 2)12abd/8bdx 3)29*38-29*23/29*60 4)3x-3y/21y
Химия
10 лет назад
При взаимодействии песка массой 350 граммов , содержащего 10% примесей с углем образовался угарный газ ,вычислите его массу и объем.
Математика
10 лет назад
В двух хранилищах было 780 т овощей.Когда из первого хранилища вывезли 180к. овощей,в обоих хранилищах стало поровну овощей.сколько тонн овощей было в каждом хранилище сначала.?
Алгебра
10 лет назад
x минус корень из (x-1)=3