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

Question

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

Comments

На чём писать то?

Answer 1

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.

Comments

pascal