Напишите программу которая в массиве из 10 целых чисел определит кол-во четных чисел, кратных 5. (Паскаль)
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Дано довжину ребра куба.Знайти його обєм та площу всієї поверхні
Автор: ИльяАндреевич-Мария
Для каких устройств не требуется установка драйвера
Автор: Яковчук1911
Предложите трассировочную таблицу для следующих зада:
Автор: forwandy42
15 домены верхнего уровня (6 предложения)
Автор: ktripoleva294
Дан программный код, что будет выведено на экран после его выполнения
Автор: vypolga1347
Вывести квадраты натуральных чисел в диапазоне от [a, b] на языке pascal.
Автор: Ильдар-Кугай
При угадывании целого числа в диапазоне от 1 до n было получено 7 бит информации. чему равно n?
Автор: ekaterinaorl1998
Что выведет программа? a = -10 b = 19 if a<=b: print(a) else: print(b)
Автор: АндреевичЮлия
Сообщение об исполнителе Рисователь. (Чтобы можно было в тетради записать и рассказать СЕГОДНЯ
Автор: tumanowivan2015509
var a:array[1..10] of integer;
i, c: integer;
begin
for i := 1 to 10 do read(a[i]);
c := 0;
for i := 1 to 10 do
if a[i] mod 10 = 0 then c := c + 1;
writeln(c)
end.
Объяснение:
Чётные числа, кратные 5 - это числа, которые делятся на 10, поэтому проверяем делимость на 10.