DIM X, A, B AS INTEGER
INPUT X
A = 0: B = 1
WHILE X > 0
A = A + 1
B = B*(X MOD 10)
X = X \ 10
WEND
PRINT A
PRINT B
DIM X, A, B AS INTEGER
INPUT X
A=0: B=0
WHILE X > 0
A = A + 1
B = B + (X MOD 10)
X = X \ 10
WEND
PRINT A
PRINT B
DIM X, А, В AS INTEGER
INPUT X
А=0: В=1
WHILE Х>0
А = А+(Х MOD 10)
В = B*(X MOD 10)
X = X \ 10
WEND
PRINT А
PRINT В
DIM X, A, B AS INTEGER
INPUT X
A=0: B=1
WHILE X>0
A = A+1
B = B*(X MOD 10)
X = X \ 10
WEND
PRINT A
PRINT B
DIM X,A,B AS INTEGER
INPUT X
A=0: B=0
WHILE X > 0
A = A + 1
B = B + (X MOD 10) * (X MOD 10)
X = X \ 10
WEND
PRINT A
PRINT B