Дано целое число а. Определите количество разрядов этого числа- QBasic(Бейсик)

INPUT a
DO
    s = s + 1
    a = a \ 10
LOOP UNTIL a = 0
PRINT s

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment