Ответы на вопрос:
Var a,k: integer; 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
Популярно: Информатика
-
artursharipoff03.11.2020 19:02
-
Isa2222225.08.2020 17:57
-
skillsass27.12.2021 23:46
-
chern8p08uo007.03.2022 01:58
-
mereysi1108.09.2020 20:08
-
чика5617.06.2022 02:00
-
AishaZamyjem826.05.2023 09:16
-
fedosovsemen30.05.2022 10:23
-
vikusya2000131.10.2022 02:35
-
arinamarkina001.01.2020 06:19