С ПОМОЩЬЮ WHILE НАПИШИТЕ ПРОГРАММУ ВВОДА ВСЕХ НЕЧЁТНЫХ ЧИСЕЛ ОТ ...
С ПОМОЩЬЮ WHILE НАПИШИТЕ ПРОГРАММУ ВВОДА ВСЕХ НЕЧЁТНЫХ ЧИСЕЛ ОТ 1 ДО 100. ЭТО В QBASIC
Есть ответ
17.12.2022
84
Ответ
s$ = ""
FOR i = 1 TO 100IF (i MOD 2) 0 THEN s$ = s$ + STR$(i) + " "END IFNEXT i
PRINT 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$ на экран
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022