Вопрос, который вызвал трудности

Напишите программу которая считает количество чётных цифр введённого числа

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

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.