DIM X, A, B AS INTEGER
INPUT X
A = 0: B = 0
WHILE X > 0
IF X MOD 2 = 0 THEN
A = A + 1
ELSE
B = B + 1
END IF
X = X \ 2
WEND
PRINT A, B
DIM X, A, B AS INTEGER
INPUT X
A = 0: B = 0
WHILE X > 0
IF X MOD 2 > 0 THEN
A = A + 1
ELSE
B = B + 1
END IF
X = X \ 2
WEND
PRINT A, B
DIM X, A, B, D AS INTEGER
INPUT X
A = 0: B = 10
WHILE X > 0
D = X MOD 9
IF D > A THEN A = D
IF D < B THEN B = D
X = X \ 9
WEND
PRINT A*B
DIM X, A, B, D AS INTEGER
INPUT X
A = 0: B = 10
WHILE X > 0
D = X MOD 6
IF D > A THEN A = D
IF D < B THEN B = D
X = X \ 6
WEND
PRINT A*B
DIM X, L, M AS INTEGER
INPUT X
L = 0
M = 0
WHILE X > 0
M = M + 1
IF X MOD 2 = 0 THEN
L = L + 1
ENDIF
X = X / 2
WEND
PRINT L
PRINT M
DIM X, A, B AS INTEGER
A = 0 : B = 0
INPUT(X)
WHILE X > 5
IF X MOD 5 < 2 THEN
A = A + 1
END IF
IF X MOD 5 > 2 THEN
B = B + 1
END IF
X = X \ 5
WEND
PRINT A, B
DIM X, L, M AS INTEGER
INPUT X
L = 1
M = 0
WHILE X > 0
M = M + 1
IF X MOD 2 <> 0 THEN
L = L * (X MOD 8)
END IF
X = X \ 8
WEND
PRINT L
PRINT M
DIM X, A, B AS INTEGER
INPUT X
A = 0: B = 1
WHILE X > 0
IF X MOD 2 > 0 THEN
A = A + X MOD 12
ELSE
B = B * (X MOD 12)
END IF
X = X / 12
WEND
PRINT A
PRINT B
DIM X, A, B AS INTEGER
INPUT X
A = 0: B = 1
WHILE X > 0
IF X MOD 2 > 0 THEN
A = A + X MOD 12
ELSE
B = B * (X MOD 12)
END IF
X = X / 12
WEND
PRINT A
PRINT B
DIM X, A, B AS INTEGER
INPUT X
A = 0: B = 1
WHILE X > 0
IF X MOD 2 > 0 THEN
A = A + X MOD 12
ELSE
B = B * (X MOD 12)
END IF
X = X\12
PRINT A
PRINT B
DIM X, A, B AS INTEGER
INPUT X
A = 0: B = 1
WHILE X > 0
IF X MOD 2 > 0 THEN
A = A + X MOD 12
ELSE
B = B * (X MOD 12)
END IF
X = X / 12
WEND
PRINT A
PRINT B
DIM X, A, B AS INTEGER
INPUT X
A=0: B=1
WHILE (X MOD 10) > 1
A = A+(X MOD 10)
B = B*2
X = X\10
WEND
PRINT A
PRINT B