Ответы на вопрос:
Var s: string; i,n: longint; begin readln(s); for i: =1 to length(s) do if (s[i]='2')or(s[i]='4')or(s[i]='6')or(s[i]='8') then inc(n); writeln(n); end.
Популярно: Информатика
-
kimdana115.12.2020 08:16
-
korolevdanil9905.02.2020 01:02
-
polinfasdfg20.06.2022 10:43
-
zelenskiy1000022.02.2023 08:15
-
софилка28.07.2022 13:32
-
Куска14.05.2020 08:08
-
Lerysik0013.07.2020 15:30
-
Bayana00024.03.2021 00:46
-
VaBaGaBa20.05.2022 13:08
-
Twister0406.11.2022 05:21