Question

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

Answer 1

var n,k1,k2:integer;
begin
write('n = ');
readln(n);
k1:=0; k2:=0;
while n>0 do
 begin
 if n mod 2=0 then k1:=k1+1 else k2:=k2+1;
 n:=n div 10;
 end;
writeln('Четных цифр - ',k1,', нечетных - ',k2);
end.

Пример:
n = 14568
Четных цифр - 3, нечетных - 2