Ответы на вопрос:
Var a, s,m: integer; beginread(a); while a> 0 do begin m: =a mod 10; if m mod 2 < > 0 then s: =s+1; a: =a div 10; end; writeln(s); end.
Популярно: Информатика
-
Ludo4ka12325.06.2021 08:27
-
zexer9p07xi105.08.2021 00:41
-
olyailysha3122.04.2023 04:52
-
lover729.04.2020 22:55
-
Азяка2111.11.2021 15:04
-
RRuslan61929.11.2021 22:16
-
Nastya486921.04.2020 03:24
-
Dmitry023214116.05.2021 17:36
-
Kristgame17.06.2022 20:00
-
egorpolozuk19.01.2022 02:32