Сwhile напишите программу ввода всех нечётных чисел от 1 до 100. это в qbasic

294

434

Посмотреть ответы 2

Ответы на вопрос:

kupecki

Информатика

4,5(55 оценок)

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