Данно натуральное число. а) Определить его максимальную цифру. б) Определить его минимальную цифру. QBasic 4.0
Данно натуральное число. а) Определить его максимальную цифру. б) Определить его минимальную цифру. QBasic 4.0
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы