На паскаль abc без всяких суппер пуппер версий (полностью : найти количество четных цифр натурального числа. формат ввода: на вход подается натуральное, не превосходящее 30000. формат вывода: целое число. пример входных данных 321 пример выходных данных 1
Malajazaika
3
20.09.2019 04:10
2
Другие вопросы по теме Информатика
serenovanuria03
21.08.2019 21:00
Lotek
21.04.2019 18:19
андрюха87
21.04.2019 18:21
joker1100
21.04.2020 22:39
borisovaekaterina15
21.04.2020 22:45
zFast88
21.04.2020 22:46
Savi123
21.04.2020 22:45
marinastolarova
19.05.2020 12:02
Популярные вопросы
- Які положення даосизму відбилися в середньовічній китайській поезії?...
2 - Отдаю всё свои последнее Создайте текст-описание прекрасного цветка,...
3 - Розв яжіть рівняння (2x – 3)(х + 7) = (х – 4) (2x + 3) + 3 ....
2 - Упражнение 1. Произнесите формы причастий. Обоснуйте место ударения...
3 - Скажите какой нибудь рассказ, где повествование от первого лица...
2 - A/5,7-4,5 + a/2,8 + 4,4, если: а...
2 - Задания к тексту 1.определить тему и основную мысль,2.выписать слова...
2 - Химия. Дописать кол-во водородов в цепи и дать название....
3 - Обставина причини є в реченні А.З кохання плакав я, ридав. Б.Вкраїну...
3 - Перша Конституція незалежної України складалася з: а) 10 розділів;...
3
begin
readln(a);
k:=0;
while a>0 do
begin
if a mod 2=0 then k:=k+1;
a:=a div 10;
end;
writeln(k);
end.
Пример:
321
1
begin
for a>0 to a=0 do
if (a mod 10) mod 2 =0 then
a:= a div 10;
c:=c+1
else
a:= a div 10;
writeln(c);
end.