С ПОМОЩЬЮ WHILE НАПИШИТЕ ПРОГРАММУ ВВОДА ВСЕХ НЕЧЁТНЫХ ЧИСЕЛ ОТ 1 ДО 100. ЭТО В QBASIC

Ответы (1)

Кэмера 04.04.2025 2

s$ = "
FOR i = 1 TO 100
IF (i MOD 2) 0 THEN
s$ = s$ + STR$(i) + " "
END IF
NEXT i
PRINT s$
Дополнение :
Чисел много, на экран не убираются
Будем из запоминать в текстовую переменную s$
s$ = " -- Инициализирует пустую строковую переменную
FOR i = 1 TO 100 -- цикл от 1 до 100
IF (i MOD 2) 0 THEN -- нечетное число то, у которого отстаток от деления
-- на 2 не равен 0
-- логический оператор НЕ РАВНО
-- MOD - оператор возвращает остаток от деления
s$ = s$ + STR$(i) + " " -- Положить в конец переменной s$ строковое
-- предствление числовой переменной i
END IF -- конец блока цикла
NEXT i
PRINT s$ -- вывод переменной s$ на экран

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика: