Данно натуральное число. а) Определить его максимальную цифру. б) Определить его минимальную цифру. QBasic 4.0
Answers & Comments
v1248
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
Answers & Comments
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