Найти максимальное и минимальное из чисел через оператор do loop while - QBasic

Узнай цену своей работы

Формулировка задачи:

дано четырехзначное число найти максимальное и минимальное из чисел через оператор do loop while

Решение задачи: «Найти максимальное и минимальное из чисел через оператор do loop while»

textual
Листинг программы
  1. DEFSTR S
  2. DEFINT I, M-N
  3. CLS
  4. INPUT "Vvedite 4-zn chislo"; s4
  5. max = 0
  6. min = 9
  7. i = 1
  8. DO WHILE i < 5
  9.    s = MID$(s4, i, 1)
  10.    n = VAL(s)
  11.    IF n < min THEN min = n
  12.    IF n > max THEN max = n
  13.    i = i + 1
  14. LOOP
  15. PRINT "max="; max
  16. PRINT "min="; min
  17. END

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.846 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы