Найдите количество чётных цифр заданного числа по программе pascal.
КЕНДИПИК
3
21.05.2019 17:50
0
Другие вопросы по теме Информатика
alechka7
10.02.2021 13:06
vavilina000
10.02.2021 13:07
ordabaevabayan
10.02.2021 13:07
Оксана0990
08.04.2020 08:51
nastya2739
08.04.2020 08:51
Alyona1247
08.04.2020 08:52
алма15
25.12.2019 20:48
AFilchac
16.03.2022 19:45
tanabybka
16.03.2022 19:45
Популярные вопросы
- тест по литр «Русские женщины». Тест 1. Сколько времени находится в пути...
1 - задачка по информатике. Операторы циклов Написать программу для вычисления...
1 - 2. Астана қаласында энергия өндірудің жаңа әдістері жайлы көрменің атауы...
1 - 1. На рисунке изображен проволочный виток, по которому течет электрический...
1 - 2х( –5х³+3)=-10x³+6x 2) (y+2)(3y-5)=3y²+6y-5y-10=3y²+y-10 3) (7x–3y)(2x+5y)=14x²+35xy-6xy-15y²=14x²-15y²+29xy...
1 - Для изготовления аппликации Наталка засушила 8 кленовых листьев и 7 березовых,...
1 - периметр параллелограмма равен 30 см. разность двух его углов равна 90...
1 - Сор по литературе послелнее задание...
3 - Составь выражения к задачам.а) 24 :4...
1 - 11. Какое из нижеперечисленных значений не относится к значению митоза?...
3
var
k:integer;
a,n:longint;
begin
write ('A =');readln(a);
n:=a;
while n div 10 <> 0 do begin
n:=a;
if odd(n mod 10)=false then k:=k+1;
a:=a div 10;
end;
writeln (k);
readln;
end.