Написать программу , которая определяет сколько в пятизначном числе цифр 2

Написать программку , которая определяет сколько в пятизначном числе цифр 2 . Срочно , оооочень необходимо ....

Задать свой вопрос
1 ответ

var
a, b, k : integer;
begin
k := 0;
write('введите число: ');
readln(a);
while a lt;gt; 0 do
begin
b := a mod 10;
if b mod 2 = 0 then inc(k);
a := a div 10
end;
writeln('количество четных цифр: ', k)
end.


Так?????
Даниил Плашаднов
Да только там пятизначные числа
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт