Дано натуральное число. Найти количество четных цифр в нем. Составное условие

Дано натуральное число. Определить количество четных цифр в нем. Составное условие и более одного неполного условного оператора не использовать.(Паскаль)

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

begin

 var a := 1234567;

 var s := 0;

 while a gt; 0 do

 begin

   s += Ord(a mod 10 mod 2 = 0);

   a := a div 10;

 end;

 s.Println;

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт