Составить ** QBasic программу для подсчета количества цифр введенного целого числа..НУЖНО...

Question

Составить на QBasic программу для подсчета количества цифр введенного целого числа..НУЖНО СРОЧНО. БАЛЛАМИ НЕ ОБИЖУ.

Answer 1

DIM n, m
INPUT " n = ", n
PRINT
m = 0
WHILE n > 1
n = n / 10
m = m + 1
WEND
PRINT " number of digits = ", m
PRINT
DO
LOOP WHILE INKEY$ = ""