MaxLuk_1

DIM N AS INTEGER, I AS INTEGER, S AS INTEGER
INPUT "Введите N: ", N
PRINT "Длина числа:"; LEN(STR$(N)) - 1; "цифр"
IF N MOD 2 = 0 THEN
    PRINT "Четное"
ELSE
    PRINT "Нечетное"
END IF
PRINT N \ 100; "сотен"
FOR I = 1 TO LEN(STR$(N))
    S = S + VAL(MID$(STR$(N), I, 1))
NEXT I
PRINT "Сумма всех цифр числа:"; S