Нужна функция в паскале для нахождения количестава - вопрос №9030975 от annastiebiekova 02.01.2020 14:22

Question

Информатика: Нужна функция в паскале для нахождения количестава нечетных цифр числа

annastiebiekova · Answer

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.