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

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

Естественно, знаю, но почему я должен этим заниматься?

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

Вы написали вопрос, я дал ответ. Вы начали в комментариях писать вещи, не относящиеся к этому ответу. На этом сайте такая писанина именуется спамом и запрещена.

ок,сорян

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    endend;// демонстрация работыbegin  Writeln('Нечетных чисел в числе: ',KOD(ReadInteger('n=')))end.