Напишите программу на паскале, которая вводит последовательность целых чисел, заканчивающихся нулем, и определяет количество четных положительных чисел в этой последовательности
Юриякамория
2
05.08.2019 06:30
2
Другие вопросы по теме Информатика
sanie777velieva
23.05.2019 04:30
jykov2000
21.04.2020 15:20
Dashaaleshenko
21.04.2020 15:16
hopik2
03.08.2019 15:20
Stasya13203
03.06.2019 11:30
Bog1209
03.06.2019 11:30
Zheka1163
03.06.2019 11:30
СВСЛ1
03.06.2019 11:30
никитос73803
03.06.2019 11:30
Популярные вопросы
- 43. Мағынасы жуық сын есімдерді бір бөлек, қарсы мәнді сын есімдерді бір бөлек...
3 - 3,4*6, 5-0, 25*(17, 6*1, 5+3, 28) =...
3 - Дз по всемирной истории Парашраф 27 (стр 109 ,1 вопрос) На примере одной страны...
2 - 1 Що вивч.демографія- 2Фази демограф.переходу а) б) в) 3 Демограф.ситуація в...
3 - Напишите эссе на тему «Император Константин I Великий.»...
2 - Геометричну фігуру,що складається із всіх точок площини, рівновіддалених від...
3 - «Ужин в честь китайской делегации» Один из ведущих канадских банков пригласил...
1 - решить пример по функции (7 класс)y=4x-5...
1 - 3. Найти верные утверждения A. Кинетическая энергия ореха превращается в потенциальную...
2 - Решить задачу,одно из двух чисел в 4 раза меньше чем второе.меньшее из них обозначили...
3
begin
col:=0;
a:=0;
while a<>0 do begin
read(a);
if ((a mod 2 = 0) and (a>0)) then col:=col+1;
end;
write(col);
end.