Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ikotelevskaya78
01.12.2021 04:07 •
Информатика
Написать программу, которая определяет количество четных чисел из введенной с клавиатуры последовательности n чисел. написать программу на паскале.
Показать ответ
Ответ:
kburdenko01
21.06.2020 04:12
Например если вводится 3 числа
var a,b,c,x:integer;
begin
x:=0;
Read(a,b,c);
if a mod 2=0 then x:=x+1
if b mod 2=0 then x:=x+1;
if c mod 2=0 then x:=x+1;
Writeln('Chetnuh chisel =' ,x);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
MaxPositiv
31.10.2022 07:09
Создайте процедуру с параметрами, которая получает целое число, а возвращает подъема его к произвольному степени. в среде паскаль....
zlatasidorowa
07.05.2022 08:53
Необходимо нарисовать 57 одинаковых вертикальных палочек.Дан алгоритм .Выбери верный ответ. использовать Чертежник алг черточки 11 нач сместиться в точку (-4,3) нц...
Shamsik05
07.05.2022 08:53
напишите программу(Pascal), которая вычисляет произведение первых n членов ряда 1, ½, 1/3, ¼ Количество членов ряда задается во время работы программы (используя...
Гольник
01.07.2021 10:50
КАК МОЖНО БЫСТРЕЕ Информационная безопасность — это: A) процесс обеспечения конфиденциальности B) процесс обеспечения конфиденциальности, целостности и доступности...
BoPoHoK
27.07.2022 16:57
1.за яких умов можна на компьютере переглянути відеофільм, послухати музику? 2. як запустити на виконання обрану програму?...
VaSa4547
27.07.2022 16:57
Добрые люди. с клавиатуры вводятся дейстивительные числа и последовательно суммируются. когда их сумма превысит 150, найти количество введенных чисел и их сумму....
TigerForceCasual
24.04.2023 20:14
Тест по Восточной Сибири 1)О каком народе, проживающем в Восточной Сибири, идет речь? Он относится к алтайской семье монгольской группы, является титульной нацией...
o123456789
24.04.2023 20:14
Какие организмы очень быстропередвигаются? СредаКакие организмы по скоростипередвижения находятся на 2 месте?Среда Какие из этой группы первые(стопоходящие, пальцеходящие,копытные)?...
1483983829
24.04.2023 20:14
Вот задание: Стр 121 написать свои примеры для свойств кислот и оснований (молекулярные и ионные уравнения) (цитата из электронного) Страница во вложении, буду благодарен...
dalelodaryn
18.02.2020 04:12
Три резистори R = 125 Ом з єднані по схемі зірка та підключені в трифазну мережу. Струм кожної фази 1,76 А. Знайти діюче значення фазної напруги...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b,c,x:integer;
begin
x:=0;
Read(a,b,c);
if a mod 2=0 then x:=x+1
if b mod 2=0 then x:=x+1;
if c mod 2=0 then x:=x+1;
Writeln('Chetnuh chisel =' ,x);
end.