Предмет: Информатика, автор: lakomkalove

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

Ответы

Автор ответа: hambis

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

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

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

Интересные вопросы

Предмет: История, автор: Аноним

Воспроизведите события которые произошли в указанное время V-VI вв.(ПОМОГИТЕ ПОЖАЛУЙСТА СРОЧНО!!!)

7 лет назад

Предмет: Литература, автор: gorbenkonasta998

каким остался в памяти народов город Отрар чем знаменит Отар Напишите 1-3 предложения
СРОЧНО!!!!!!

7 лет назад

Предмет: Қазақ тiлi, автор: almazvip999

помогите, көмектесіңізш

7 лет назад

Предмет: Физика, автор: born1

Автомобиль движется на повороте по круговой траектории радиусом 50 м с постоянной по модулю скоростью 10 м/с. Какого ускорение автомобиля? Тело движется по окружности радиусом 10 м. Период его обращения равен 20 с. Чему равна скорость тела? Тело движется по окружности радиусом 5 м со скоростью 20 м/с. Чему равна частота обращения тела?

10 лет назад

Предмет: Математика, автор: t031976

За время летних каникул Незнайка успел подраться с 75 коротышками.
15 коротышек он отлупил сам, а остальные отлупили Незнайку за то,
что он очень много дразнился. Вечером 31 июля Незнайка с грустью
подсчитал, что с начала каникул он был отлуплен 30 коротышками.

Ребята, сколько же коротышек отлупили Незнайку в августе?

10 лет назад