Помогите записать в qbasic.Ввести 10 чисел. Проверить, есть ли среди введенных ноль. Если есть, вывести на экран «Есть 0», если нет – «Нет 0».(10 чисел имеется в виду любых десять)
Ответы:
26-11-2015 14:29
CONST n = 10DIM a(1 TO n) AS INTEGERDIM i AS INTEGER, IsNull AS INTEGERPRINT "Вводите числа"FOR i = 1 TO n INPUT a(i)NEXT ii = 1IsNull = 0DO WHILE i <= n IF a(i) = 0 THEN IsNull = 1 i = i + 1LOOPIF IsNull = 1 THEN PRINT "Есть 0"ELSE PRINT "Нет 0"END IFEND
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Помогите записать в qbasic.Ввести 10 чисел. Проверить, есть ли среди введенных ноль. Если есть, вывести на экран «Есть 0», если нет – «Нет 0».(10 чисел имеется в виду любых десять)» от пользователя Коля Комаров в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!