Найти максимальное и минимальное из чисел через оператор do loop while - QBasic
Формулировка задачи:
дано четырехзначное число найти максимальное и минимальное из чисел через оператор do loop while
Решение задачи: «Найти максимальное и минимальное из чисел через оператор do loop while»
textual
Листинг программы
- DEFSTR S
- DEFINT I, M-N
- CLS
- INPUT "Vvedite 4-zn chislo"; s4
- max = 0
- min = 9
- i = 1
- DO WHILE i < 5
- s = MID$(s4, i, 1)
- n = VAL(s)
- IF n < min THEN min = n
- IF n > max THEN max = n
- i = i + 1
- LOOP
- PRINT "max="; max
- PRINT "min="; min
- END
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д