IgGor_1

DIM N AS INTEGER, I AS INTEGER, V, S$
INPUT "Input N: ", N
S$ = LTRIM$(STR$(N))
FOR I = 1 TO LEN(S$)
    V = V + VAL(MID$(S$, I, 1))
NEXT I
V = V / LEN(S$)
PRINT "Среднее арифметическое:"; V


DIM N AS INTEGER, V AS INTEGER, I AS INTEGER
INPUT "Input N: ", N
DO
    V = V + N MOD 10
    N = N \ 10
    I = I + 1
LOOP WHILE N > 0
PRINT "Среднее арифметическое:"; V / I