logo
Войти Регистрация Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
drazzgaming
drazzgaming
01.06.2021 12:46 •  Информатика

Склавиатуры вводится последовательность чисел, 0 конец последовательности. посчитать сколько введено четных чисел. нужно составить программу для паскаль

Показать ответ
Ответ:
Oksana321
Oksana321
10.07.2020 23:17
Var x,y:integer;
begin
  repeat
    readln(x);
    y := y + 1 - (x mod 2);
  until x = 0;
  writeln(y);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
ДианаЛаймова2003
ДианаЛаймова2003
14.10.2021 05:11
Текст занимает 10 страниц. На каждой странице 32 строки по 64 символа в строке. Найти объём оперативной памяти (В самых больших единицах)....
Kmaj
Kmaj
16.01.2023 22:51
Составить таблицы истинности для следующих логических выражений. = ¬ &( ∨ ) ∨ ( ↔ ) = ¬( ∨ Y) ∨ (Z → X)&(Z ↔ Y) = ( → ) ∨ ¬ &( ↔ )...
00Лисичка00
00Лисичка00
15.06.2022 17:38
Определите информационный объем текста: ядра - чистый изумруд; а. текст написан в тераде б. текст набран с компьютера (ascii) в. текст набран с компьютера (unicode)...
vovashkaruba
vovashkaruba
15.06.2022 17:38
Модем передавать информацию со скоростью 48000бит в секунду. сколько символов текста передаст модем за 5 минут? (unicode)...
ого23
ого23
14.07.2021 22:49
Дано четное число n ( 0) и символы c1 и c2. вывести строку длины n, которая состоит из чередующихся символов c1 и c2, начиная с c1....
oal64
oal64
19.05.2020 17:06
Начертите блок схему для вычисления площади круга радиусом r...
тяпница13
тяпница13
11.06.2020 20:41
Врезультате выполнения фрагмента программы while n 0 do begin write ( 2*(n mod 5 + 3) ); n : = n div 10; end; на экран выведено число 10614. какое число хранилось до этого в переменной...
ДЭМКО
ДЭМКО
19.02.2023 10:14
Суттен не жасауга болады ​...
ваноумно
ваноумно
10.05.2021 19:52
ЖАЗЫЛЫМ 2-тапсырма. Мақал-мәтелдерді пайдала-нып, мәтін құра.1. Жолаушының кешік-кеніне сүйсінбе, аңшыныңкешіккеніне сүйсін.2. Құмай тазы қуғаныналады.3. Саятшылықсабырлыға жарасар​...
ulllyyy2010
ulllyyy2010
14.08.2021 05:32
Нужен отзыв на произведение ночной дилижанс паустовский...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота