Ответы и объяснения

2013-04-11T16:48:29+04:00

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