Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
1zoya
01.05.2020 06:34 •
Информатика
Подсчитать количество четных чисел среди чисел a,b,c. написать программу в pascal.
Показать ответ
Ответ:
nastakim68
12.07.2020 19:05
Var
k,a,b,c:Integer;
Begin
k:=0;
Read(a,b,c);
if (a mod 2 = 0) then k:=k+1;
if (b mod 2 = 0) then k:=k+1;
if (c mod 2 = 0) then k:=k+1;
Writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
BERE1337
20.11.2022 23:20
Запиши за база данных MS Access): записи, в которых названия стран заканчиваются на зия ....
эги1
06.12.2021 22:50
Какое служебное слово следует в цикле с убывающим значением параметра между его начальным и конечным значением?...
Даня1681
10.06.2021 17:02
Здравствуйте с сор по информатике 6 класс...
4новичок4
01.12.2022 05:15
контрольная работа номер 3 обработка числовой информации в электронных таблицах...
flagvamvruke
01.01.2022 07:45
В чем состоит неопределенность знаний в опыте по бросанию монеты?...
наташа934
24.01.2022 03:30
1. Составьте программу закрашивания 7-ми клеток по диагонали вправо вверх от Робота, считая, что изначально Робот находится в левом нижнем углу поля программа : Кумир-стандарт...
dariadariadaria2
05.08.2020 04:54
Гироскопиялық датчик режимдерін жаз. !!...
петро27
13.05.2023 11:31
Задача 1. Отвечая правильно на во теста, ученик получил 2 бита информации. Сколько вариантов ответа у тестового задания? Задача 2. Книга, набранная с компьютера, содержит...
Pomawkal
04.07.2020 23:08
1)в ячейке А4 записана формула А1 * 2 - А2 * 3 + сумм(В1:В3). какое значение окажется в этой ячейке?2) в ячейке a4 записана формула суммпроизв (А1:А3:В1:В3). какое значение...
Amina21777
10.08.2022 10:47
Заполните таблицу, напишите действия указанных операторов: № Функция(оператор) Назначение функции(оператора) 1. MID$(S$,N1,N2) 2. LEN(‘STROKA’) 3. IF…THEN…ELSE 4. FOR ..TO…STEP…NEXT...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
k,a,b,c:Integer;
Begin
k:=0;
Read(a,b,c);
if (a mod 2 = 0) then k:=k+1;
if (b mod 2 = 0) then k:=k+1;
if (c mod 2 = 0) then k:=k+1;
Writeln(k);
end.