Дано натуральное число N.Найти сумму цифр этого числа.(Qbasik)
Дано натуральное число N.Найти сумму цифр этого числа.(Qbasik)
Гость
Ответ(ы) на вопрос:
ГостьINPUT A%
S$ = STR$(A%)
SUM = 0
FOR I = 1 TO LEN(S$)
SUM = SUM + VAL(MID$(S$,I,1))
NEXT I
PRINT SUM
Не нашли ответ?
Похожие вопросы