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