Предмет: Информатика,
автор: lakomkalove
Дано натуральное число N.Найти сумму цифр этого числа.(Qbasik)
Ответы
Автор ответа:
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
Похожие вопросы
Предмет: Биология,
автор: ahatulymuhametzan
Предмет: Другие предметы,
автор: Аноним
Предмет: Русский язык,
автор: kalaubaevalazzat
Предмет: Литература,
автор: timva
Предмет: Информатика,
автор: АняИванова12