DIM X,D,R AS LONG
INPUT X
R = 0
WHILE X>0
D = X MOD 10
R = R*10 + D
X = X \ 10
WEND
PRINT R
DIM X,D,R,K AS LONG
INPUT X
K=0
R = 0
WHILE X>0
K=K+1
D = X MOD 10
R = R + D
X = X \ 10
WEND
PRINT R, K
DIM X, a, b AS INTEGER
INPUT X
a = 0
b = 0
WHILE X > 0
a = a + 1
IF X DIV 10 > 0 THEN
b = b + 1
END IF
X = X DIV 2
END WHILE
PRINT a
PRINT b
DIM n, s, a AS INTEGER
INPUT n
s = 0
a = 0
WHILE n > 1
s = s + 1
a = 10*n DIV 10 MOD 10
n = n DIV 10
END WHILE
PRINT s
PRINT a
DIM X, L, N AS INTEGER
INPUT X
L = 0
N = 0
WHILE X > 0
L = L + 1
IF X MOD 2 = 0 THEN
N = N + ((X MOD 10) \ 2) + 1)
X = X \ 10
ENDIF
PRINT L
PRINT N
DIM X, L, M AS INTEGER
INPUT X
L = 0
M = 0
WHILE X > 0
M = M + 1
IF X MOD 10 <> 0 THEN
L = L + 1
ENDIF
X = X \ 10
WEND
PRINT M
PRINT L
DIM n, a, b, s AS INTEGER
INPUT n
a = 0
b = 0
s = 3
Do
s = s - 1
a = n DIV 10
b = n MOD 10
n = n DIV 10
LOOP WHILE s = 0
PRINT n
PRINT a + b
DIM X,D,R AS LONG
INPUT X
R = 0
WHILE X>0
D = X MOD 10
R = R + D
X = X \ 10
WEND
PRINT R
DIM X,D,R AS LONG
INPUT X
R = 0
WHILE X>0
D = X MOD 10
R = R + D
X = X \ 10
WEND
PRINT R
DIM X,T as LONG
INPUT X
T = 0
WHILE X>0
T=T+1
X = X \ 5
WEND
PRINT T
DIM X,D,R AS LONG
INPUT X
R = 0
WHILE X>0
D = X MOD 10
R = R*10 + D
X = X \ 10
WEND
PRINT R
DIN X,D,R AS LONG
INPUT X
R = 0
WHILE X>0
D = X MOD 10
R = R + D
X = X \ 10
WEND
PRINT R
DIM X,D,R AS LONG
INPUT X
R = 1
WHILE X>0
D = X MOD 10
R = R * D
X = X \ 10
WEND
PRINT R
DIM X, L, M AS INTEGER
INPUT X
L = 0
M = 0
WHILE X > 0
L = L + 1
IF X MOD 2 = 0 THEN
M = M + (X MOD 10) \ 2
X = X \ 10
ENDIF
PRINT L
PRINT M
DIM X,D,R AS LONG
INPUT X
R = 0
WHILE X>0
D = X MOD 10
R = R + (D MOD 2)
X = X \ 10
WEND
PRINT R