Склавиатуры вводятся числа до тех пор пока не введено 5. найти колличество четных чисел из введенных .
cyganka84
2
18.03.2019 23:50
0
Другие вопросы по теме Информатика
newsosnovskiymp06yuf
08.09.2021 18:19
Katranov2016
28.08.2019 06:30
Кооооотттт
28.09.2019 02:00
nikfyodorov20
28.09.2019 02:00
Dasha555559
20.05.2019 09:52
nastya368421678
20.05.2019 11:00
german150801
20.05.2019 09:51
arturgilt21
20.05.2019 11:00
Популярные вопросы
- Какие из перечисленных терминов используются в первую очередь...
1 - Переведите на язык: 1.вы были на уроке языка в понедельник?...
1 - Найдите в предложении словосочетание со связью согласование...
2 - За картою годинних поясів визначити місцевий час в парижі якщо...
1 - Какие 9 рассказа л.пантелеева вы знаете !...
1 - Разложите на множители 6a^2b^2-600a^2c^2 и 7a^2-28ab+28b^2...
3 - Встранах с рыночной 1)производитель самостоятельно определяет,...
1 - Решите уравнение: 3х^2+7х-6=0 нужен 100% правильный ответ.....
2 - Кроссворд по страницам учебника 1 заглавие стихотворение бунина...
2 - Напишите перевод на : учителя должны регулярно проходить курсы...
2
числа 2 и 4
Мухтар это ты перечислил целые а не четные
var a:array [1..100] of integer; i,n,b:integer;
begin
i:=1;
while a[i]<>5 do
begin
read(a[i]);
i:=i+1;
n:=n+1;
end;
for i:=1 to n do
if a[i] mod 2=0 then b:=b+1;
writeln(b);
end.