Найдите количество четных цифр в десятичной записи числа n.На Алгоритмическом Языке

Найдите количество четных цифр в десятичной записи числа n.
На Алгоритмическом Языке

Задать свой вопрос
1 ответ
Program z2; var x, y, k:integer; Begin        readln (x);         k:=0;         while xlt;gt;0 do         begin              y:=x mod 10;              if y mod 2 =0 then k:=k+1;              x:=x div 10;         end;         writeln ('k=',k);


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


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

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

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

Войти на сайт