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, 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, 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 100)
X = X\100
WEND
PRINT A
PRINT B
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