Склавиатуры вводится произвольная последовательность положительных чисел, за которой следует 0. определить количество четных чисел. напишите на языке паскаль
rbhz
1
26.08.2019 06:20
0
Другие вопросы по теме Информатика
magosh2001
14.05.2020 12:17
DetkaGeimer
14.05.2020 12:17
Ростик22812312
09.09.2019 15:34
Gamonga
26.04.2021 10:20
stf74149
26.04.2021 10:21
исма19
26.04.2021 10:22
Mariyam005
08.04.2021 17:58
Aleksandra20061
02.07.2019 14:00
mariyaarif
05.12.2020 17:07
green151
05.12.2020 17:07
Популярные вопросы
- На экран вывести массив состоящий из n элементов целочисленного типа...
1 - При заповненні газом до тиску 1,65*10^7 па температура газу підвищилась...
1 - Втрех цистернах 60 т топлива. в первой на 15 т больше, чем во второй,...
3 - 1как размножаются хвойные растения 2 какова роль голосеменных покрытосеменных...
1 - Втреугольнике abc угол с равен 90, ch - высота, ah=4 ch=3. найдите...
1 - Какой треугольник называется прямоугольным ? как называется стороны...
2 - Напишите рассказ по на тему my favourite kind of art про рисование,умоляю!...
1 - Если траектория тела- прямая линия, то движение называется. ....
3 - Найти корни уравнения x-4,1/2,5=x+0,8/5...
1 - Уюли было 10 грн она купила за 2грн булочку какими купюрами юля получила...
1
var a,k: integer;
begin
readln(a);
k:=0;
while a<>0 do
begin
if a mod 2=0 then k:=k+1;
readln(a);
end;
write(k);
end.