Напишите программу, которая в последовательности целых чисел определяет количество чётных чисел, кратных 5. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: количество чётных чисел, кратных 5.
Для записи программы используйте приведенные переменные:

var a, n: integer
begin
n:= 0
readln(a)
…
writeln(n)
end

102

386

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

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

nikastezkaowl9vp

Информатика

4,8(95 оценок)

# PascalABC.NET 3.7 #

# .NET Framework 4.8 #

begin

ReadSeqIntegerWhile(x -> x > 0).Count(x -> x mod 5 = 0).Println();

end.

khoinaSonia

Информатика

4,8(98 оценок)

Дано: n=19 k=30 i-? решение: n=2^i=> 19=2^i=> i=5 бит i=k*i=30*5=150 бит ответ: 150 бит.

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.