profile

Опубликовано 5 лет назад по предмету Информатика от u4en

Напишите программу, которая в последовательности натуральных
чисел определяет количество чисел, кратных 6. Программа получает
на вход количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется число, кратное 6.
Количество чисел не превышает 1000. Введённые числа не превышают
30 000.
Программа должна вывести одно число – количество чисел, кратных 6.
Пример работы программы:

  1. Ответ
    Ответ дан Artem112

    CLS
    a:
    INPUT n
    IF n < 1 OR INT(n) <> n OR n > 1000 THEN GOTO a
    DIM a(n)
    FOR i = 1 TO n
    b:
    INPUT a(n)
    IF a(n) < 1 OR INT(a(n)) <> a(n) OR a(n) > 30000 THEN GOTO b
    IF INT((a(n)) / 6) = (a(n)) / 6  THEN h = h + 1
    NEXT i
    PRINT h
    END

Войдите или зарегистрируйтесь, чтобы добавить ответ или свой вопрос на сайт


Другие вопросы
Хаааа
Математика - 4 недели назад

150+150=?

Хаааа
Математика - 4 недели назад

150+150=?

скляр
Биология - 1 месяц назад

Ген днк включает 300 пар нуклеотидов. какова длина, молекулярная масса гена и сколько аминокислот закодировано в нем

скляр
Биология - 1 месяц назад

Ген днк включает 300 пар нуклеотидов. какова длина, молекулярная масса гена и сколько аминокислот закодировано в нем

Дашка
Русский язык - 1 месяц назад

Подчеркните грамматическую основу. определите вид дополнения (прямое или косвенное), подпишите их 1) я отправил сестре телеграмму с поздравлением 2) учёные доказали существование жизни в космосе 3) он не знал никаких радостей, кроме чтения книг. 4) и поныне славятся у нас на севере замечательные русские умельцы.5) после тёплой ясной погоды наступило ненастье.6) подруга на станции купила новый иллюстрированный журналы и свежий мягкий хлеб. 7)хохлатые курицы ищут в сене мошек да букашек.8) и туман, и непогоду осень поздняя несёт


Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.