Задание:
С ПОМОЩЬЮ WHILE НАПИШИТЕ ПРОГРАММУ ВВОДА ВСЕХ НЕЧЕТНЫХ ЧИСЕЛ ОТ 1 ДО 100. ЭТО В QBASIC
Решение:
s$="FOR i=1 TO 100IF (i MOD 2) <> 0 THEN s$=s$+STR$ (i)+"END IFNEXT iPRINT s$ Дополнение: Чисел много, на экран не убираютсяБудем из запоминать в текстовую переменную s$s$=" — Инициализирует пустую строковую переменнуюFOR i=1 TO 100 — цикл от 1 до 100IF (i MOD 2) <> 0 THEN — нечетное число то, у которого отстаток от деления — на 2 не равен 0 — <> логический оператор НЕ РАВНО — MOD — оператор возвращает остаток от деленияs$=s$+STR$ (i)+" — Положить в конец переменной s$ строковое — предствление числовой переменной iEND IF — конец блока циклаNEXT iPRINT s$ — вывод переменной s$ на экран
Знаете другой ответ?