Question

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

Answer 1

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

function KOD(n:integer):integer;
begin
  (n,Result):=(Abs(n),0);
  while n>0 do begin
    var d:=n mod 10;
    if d.IsOdd then Result+=1;
    n:=n div 10
    end
end;

// демонстрация работы
begin
  Writeln('Нечетных чисел в числе: ',KOD(ReadInteger('n=')))
end.