Напишите программу которая считает количество чётных цифр введённого числа
152
453
Ответы на вопрос:
Var x,z,k: integer; begin writeln ('введите число'); readln(x); k: =0; while x< > 0 dobeginz: =x mod 10; x: =x div 10; if x mod 2=0 thenk: =k+1; end; writeln('кол-во чётных чисел : ',k); end.
Популярно: Информатика
-
romanchukana22.07.2021 07:47
-
Wector1121118.07.2021 08:21
-
Angela28008.07.2020 20:04
-
Ольга246508.12.2021 19:04
-
Gaka411200926.04.2021 21:51
-
Duglas1708.07.2020 18:00
-
murat20020219.01.2022 19:17
-
yana01725.05.2021 23:29
-
mullyminovam25.02.2023 21:18
-
Filonov181204.04.2022 17:16