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

Ответы 1

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

    • Автор:

      commando
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years