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

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