Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
loooowaa
11.03.2022 07:32 •
Информатика
Найти количество четных чисел в последовательности чисел.последовательность чисел заканчивается 0.паскаль
Показать ответ
Ответ:
koteika282
20.07.2020 16:51
Var k,x:integer;
begin
readln(x);
k:=0;
while x<>0 do begin
if x mod 2 = 0 then
k:=k+1;
readln(x);
end;
write(k);
readln
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Tusovik
03.10.2022 22:25
Для какого из значений числа х истинно высказывание: не (х 5) и (х 6)? 1)6 2)5 3)4 4)3...
shabanovkirillp02mew
03.10.2022 22:25
Заполнить пропуски значениями, в соответствии с предложенными единицами измерения 2 гбайт = ? мбайт = кбайт; 256 мбайт = 2^? кбайт = 2^? байт....
galihanowa2015
03.10.2022 22:25
••• ••• дано натуральное число n (n меньше или равно 9999). выяснить, верно ли, что это число содержит ровно три одинаковые цифры с учетом четырех цифр, как, например,...
хах24
25.11.2021 08:45
Сравни характеристики томов. е числа 1. Число электронов, недостающих до завершения внешнего слоя в атоме азота недостающих электронов в атоме углерода. 2. Восстановительные...
Ychenik3140
09.03.2022 08:00
У=(х+1/3) в степени 2 умножить на ( х+2) в степени 3. Построить график исследовать функцию...
Bироника
19.06.2020 00:25
Be quick! I … for you! waitwaitsam waitingHe usually ... tennis in the afternoon.playis playingplaysWhat ... in the kitchen, Peter?you dodo you doare you doingHe...a...
davidgjggjj
13.03.2022 01:37
ответь на мой вопрос про Запретный плод и получишь плюс от этого вопроса, когда напишешь ответ...
GoogliCC
29.04.2021 02:39
Оператор цикла с предусловием. Формат. Назначение. Правила выполнения. Пример....
Вета2008
10.09.2021 02:06
Можете подсказать с объяснением...
gladiolys2003
30.01.2020 20:11
Лэпбук на тему ізраільсько іудейське царство ОЧЕНЬ !...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(x);
k:=0;
while x<>0 do begin
if x mod 2 = 0 then
k:=k+1;
readln(x);
end;
write(k);
readln
end.