Написать самое оптимальное решение (** языке basic код): ввести с клавиатуры 10 раз...

Question

Написать самое оптимальное решение (на языке basic код):
ввести с клавиатуры 10 раз десять четырёхзначных чисел. сложить из них только те, которые меньше 500, при этом печатать на экране фразу "число подходит". подсчитать их количество и вывести сумму этих чисел на экран.

Comments

QBasic? VisualBasic?

---

"десять четырёхзначных чисел. сложить из них только те, которые меньше 500" четырёхзначное всегда больше 999

---

QBasic

---

извините, ошибся. трёхзначных*

---

Может меньше 5000?

---

нет, там надо десять трёхзначных чисел.

---

Ясно

Answer 1

CLS
S = 0
FOR i = 1 TO 10
INPUT A
IF (99   S = S + A
   PRINT "Chislo podhodit"
ELSE
   PRINT "Chislo ne podhodit"
END IF
NEXT i
PRINT "S = ",S
END

Comments

Спасибо за бдительность!)

---

спасибо большое. а что значит "END IF"?

---

Вы о чём?

---

там в задаче. что означает эта команда?

---

Простите но такие задания мне не приходилось решать

---

IF условие THEN
если выполняется
ELSE
если не вополняется
END IF конец блока ветвления

---

спасибо ещё раз большое!

---

Буду знать!)

---

Я более в ранней информатике понимаю!)