Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
голова332
08.01.2023 10:02 •
Информатика
Из 4 введенных с клавиатуры чисел вывести на печать количество четных чисел, больших 3. pascal/10 класс
Показать ответ
Ответ:
valeriaovsiann
04.10.2020 22:44
Var kol,x,i:integer;
begin
for i:=1 to 4 do begin
read(x);
if (x>3) and ((x mod 2) = 0) then inc(kol);
end;
writeln(kol);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
POMIDOrio
30.08.2021 23:19
Які можливості надає табличний процесор excel 2007 для введення числових і текстових даних? ...
МашуняДижур
21.03.2020 16:12
Написать формулу для умножения квадратной матрицы на матрицу, в паскале...
nikitaerm45nikita
08.01.2021 07:48
125 перевести в двоичную восьмеричную шестнадцатеричную степень...
Ангелочек350
08.05.2022 21:28
Дайте норм билд на рейзора...
anonim000002
27.11.2021 18:30
узнать зашифрованное сообщение в стереограмме...
pupsikira2
08.03.2023 02:44
Задание 9. В языке запросов поискового сервера для обозначения логической операции «ИЛИ» используется символ «I», а для логической операции «И» -символ «&».В таблице приведены...
mira0209
03.01.2020 08:19
Ауыз əдебиетінің үлгілері бізге қалай жеткен...
klarkwin
25.06.2022 16:36
1989 р. урочисто святкувалося 500-річчя виникнення українського козацтва. Скільки років пройшло від виникнення козацтва до початку Національно-визвольної війни під проводом...
mavlud111
07.01.2020 01:32
O Most nouns take -s in the plural. a book - two booksNouns ending in -ch, -S, -SS, -sh, -X, -o take -es in the plural. watch - watches,bus - buses, class - classes, brush -...
fhdjfjfuf
07.01.2020 01:32
Пять пословиц про науку на казахском языке...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
for i:=1 to 4 do begin
read(x);
if (x>3) and ((x mod 2) = 0) then inc(kol);
end;
writeln(kol);
end.