Информатика, вопрос задал lakomkalove , 10 лет назад

Дано натуральное число 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

Предыдущий вопрос

Следующий вопрос

Новые вопросы

Русский язык, 6 лет назад

Помогите написать Письмо...

Математика, 6 лет назад

Математика 6 класс. Варианты ответа: 1 година 2 години 3 години 4 години 5 години...

Литература, 10 лет назад

Если бы вы оказались в Нью-Йорке. Что бы вы хотели посетить и почему? что бы вы посоветовали посетить. что на ваш взгляд произвело на вас большое впечатление?

Математика, 10 лет назад

расставте порядок действия ,827*6-971+67488/16...

Алгебра, 10 лет назад

найти производную функции: 1) (3x^2-1/x^3) 2) (x/3+7)^6 ,3) e^x cos x , 4) 2^x/sin x...

Математика, 10 лет назад

автобус ехал 3 ч со скоростью 54 км/ч.Оказалось, что он проехал9/14 всего пути.Сколько всего километров он должен проехать? С какой скоростью надо ехать автобусу,чтобы преодолеть оставшееся...