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.

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

ок,сорян