54

С ПОМОЩЬЮ WHILE НАПИШИТЕ ПРОГРАММУ ВВОДА ВСЕХ НЕЧЕТНЫХ ЧИСЕЛ…

osskar2 28 февраля 2023

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

категория: информатика

52

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

пользователи выбрали этот ответ лучшим

Знаете другой ответ?
Другие вопросы по информатике

ПОПУЛЯРНОЕ
websss, 28 февраля 2023
Пусть дано какое-то число
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...