Ответы на вопрос:
Var n,g,s: integer; begin writeln('введите число'); readln(n); for var i: =1 to 4 do begin g: =n mod 10; if g mod 2=0 then inc(s); n: =n div 10; end; writeln(s); end. нужен другой язык - пиши
Популярно: Информатика
-
Alisa1122112215.04.2022 04:26
-
ЦветокЛотоса10.08.2020 08:32
-
kirillyamont225.11.2022 23:18
-
shamil2004219.01.2022 17:54
-
polinasparrow20.09.2022 00:18
-
nnnnn77713.08.2021 22:14
-
gkulgkuy02.12.2022 12:38
-
Arai5401.02.2022 12:01
-
барц200503.01.2020 10:32
-
Лера1501200319.02.2022 17:54