Решите задачу на языке Pascal для 8 класса: 1) Распечатать только нечетные цифры числа
2) Количество каких больше, чётных или нечётных? ​

это четные и нечетные

var  

a: integer;

even,odd: byte;

begin

readln(a);

even := 0;

odd := 0;

while a > 0 do begin

 if (a mod 2) = 0 then

  even := even + 1

 else

  odd := odd + 1;

 a := a div 10;

end;

writeln('even: ', even);

writeln('odd: ', odd);

end.

Объяснение: