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