Вопрос по информатике:
Помогите записать в qbasic.
Ввести
10 чисел. Проверить, есть ли среди введенных ноль. Если есть, вывести на экран
«Есть 0», если нет – «Нет 0».(10 чисел имеется в виду любых десять)
- 07.08.2018 20:02
- Информатика
- remove_red_eye 14272
- thumb_up 16
Ответы и объяснения 1
CONST n = 10
DIM a(1 TO n) AS INTEGER
DIM i AS INTEGER, IsNull AS INTEGER
PRINT "Вводите числа"
FOR i = 1 TO n
INPUT a(i)
NEXT i
i = 1
IsNull = 0
DO WHILE i <= n
IF a(i) = 0 THEN IsNull = 1
i = i + 1
LOOP
IF IsNull = 1 THEN
PRINT "Есть 0"
ELSE
PRINT "Нет 0"
END IF
END
- 08.08.2018 02:04
- thumb_up 15
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.