Question

Данно натуральное число. а) Определить его максимальную цифру. б) Определить его минимальную цифру. QBasic 4.0

Answer 1

CLS
INPUT "A="; S$
L = LEN(S$)
max = VAL(RIGHT$(S$, 1))
min = VAL(RIGHT$(S$, 1))
FOR i = 1 TO L
K = VAL(MID$(S$, i, 1))
IF K < min THEN
min = K
END IF
IF K > max THEN
max = K
END IF
NEXT i
PRINT "max ="; max
PRINT "min ="; min

Answer 2

Для определения максимальной и минимальной цифры в данном натуральном числе в QBasic 4.0, вы можете использовать следующий код:

qbasicCopy code
CLS

' Введите натуральное число
INPUT "Введите натуральное число: ", num

' Инициализируйте переменные для максимальной и минимальной цифры
maxDigit = 0
minDigit = 9

' Найдите максимальную и минимальную цифры в числе
WHILE num > 0
    digit = num MOD 10
    IF digit > maxDigit THEN
        maxDigit = digit
    END IF
    IF digit < minDigit THEN
        minDigit = digit
    END IF
    num = INT(num / 10)
WEND

' Выведите результаты
PRINT "Максимальная цифра: "; maxDigit
PRINT "Минимальная цифра: "; minDigit

END

Этот код сначала запрашивает у пользователя ввести натуральное число, затем находит максимальную и минимальную цифры в числе, используя цикл WHILE, операции деления и взятия остатка. Наконец, он выводит найденные значения максимальной и минимальной цифры.