Дано целое число N. Определите количество нечётных цифр в данном числе. (Pascal)

Question

Дано целое число N. Определите количество нечётных цифр в данном числе. (Pascal)

Answer 1

//PascalABC.Net
var
  n, k: integer;

begin
  readln(n);
  while n > 0 do begin
    inc(k, n mod 2);
    n := n div 10
  end;
  writeln('Количество нечетных: ', k);
end.