Ответы на вопрос:
var d,i: integer;
s: string;
begin
read(d);
s: =str(d);
for i: = 1 to length(s) do
if int(s[i]) mod 2=0 then
writeln(s[i]);
end.
Популярно: Информатика
-
Kirillsveta010329.03.2023 04:40
-
Чебурашка123456789029.04.2022 08:35
-
mayerok04.08.2022 02:20
-
Vsevolod2014108.01.2023 10:41
-
Здохненко040325.07.2022 10:37
-
софи15716.08.2021 04:25
-
Kulkovadarya9720.04.2022 19:57
-
AlinaSki23.10.2020 13:34
-
Дони121401.08.2021 03:15
-
vinney21.05.2022 01:33