Question

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

Answer 1

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$ на экран