Определить количество цифр в натуральном числе N
В БЕЙСИК прошуу

DIM n, mINPUT " n = ", nPRINTm = 0WHILE n > 1n = n / 10m = m + 1WENDPRINT " number of digits = ", mPRINTDOLOOP WHILE INKEY$ = ""