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$ = ""

Answer 2

Конечно, вот программа на QBasic, которая считает количество цифр введенного целого числа:

CLS
INPUT "Введите целое число: ", number
count = 0
temp = ABS(number) ' Берем модуль числа, чтобы учесть отрицательные значения

DO
    temp = INT(temp / 10)
    count = count + 1
LOOP UNTIL temp = 0

PRINT "Количество цифр в числе "; number; " равно "; count
END

Эта программа сначала запрашивает у пользователя ввести целое число. Затем она использует цикл `DO...LOOP` для вычисления количества цифр в числе. Код делит число на 10 в цикле до тех пор, пока число не станет равным 0. При каждой итерации счетчик `count` увеличивается на 1. В конце программа выводит количество цифр введенного числа.

Answer 3

Вот простая программа на QBasic, которая считает количество цифр введенного целого числа:

CLS
PRINT "Введите целое число:"
INPUT num

count = 0

WHILE num <> 0
    num = INT(num / 10)
    count = count + 1
WEND

PRINT "Количество цифр в числе:", count

Программа начинается с очистки экрана (CLS) и выводит сообщение "Введите целое число:". Затем она принимает входные данные от пользователя с помощью команды INPUT и сохраняет их в переменной num.

Далее мы создаем переменную count и устанавливаем ее значение равным 0. Затем мы входим в цикл WHILE, который будет выполняться, пока num не равно 0.

Внутри цикла мы делим число num на 10 и округляем результат до целого числа с помощью функции INT. Затем мы увеличиваем переменную count на 1.

После того, как число num становится равным 0, цикл завершается, и мы выводим сообщение "Количество цифр в числе:" и значение переменной count.

Надеюсь, эта программа поможет вам решить вашу задачу. Если у вас возникнут вопросы, не стесняйтесь задавать.