Ответ:

var a:longint;

   even,odd:byte;

begin

   even := 0;

   odd := 0;

   write('Введите целое воложительное число: '); readln(a);

   while a > 0 do begin

       if (a mod 10) mod 2 = 0 then even := even + 1

       else odd := odd + 1;

       a := a div 10;

   end;

   writeln('В данном числе:');

   writeln('- чётных цифр: ', even);

   writeln('- нечётных цифр: ', odd);

end.

Ответ:

Объяснение:

var x,y,z,ch,nch:integer;

begin

readln (x);

while x>0 do begin

z:=x mod 10;

x:=x div 10;

if z mod 2=0 then

 ch:=ch+1

else

 nch:=nch+1;

end;

writeln ('Четных: ',ch,' Нечетных: ',nch);

end.