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

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.

Comments

что здесь поменять Var k : integer;

function kol(x: integer): integer;
var k: integer;
begin
k := 0;
repeat
x := x div 10;
inc(k)
until x = 0;
kol := k
end;
begin
write (k); readln (k);
writeln(k, 'kol ', kol(k));
end.

---

чтобы покозывало не количество цифр в числе а нечетное (четно)количество

---

просто я его еле собрал,думал вы знаете как изменить

---

я не заставлял,просто попросил о помощи

---

ок,сорян