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

Конечно, я могу помочь с написанием функции нахождения количества нечетных цифр в числе на языке Паскаль (Pascal). Вот пример такой функции:

pascalCopy code
function CountOddDigits(number: Integer): Integer;
var
  digit: Integer;
begin
  Result := 0; // Изначально количество нечетных цифр равно 0
  number := Abs(number); // Обработаем отрицательные числа (если необходимо)

  // Перебираем все цифры числа
  while number > 0 do
  begin
    digit := number mod 10; // Получаем последнюю цифру числа
    if digit mod 2 <> 0 then
      Inc(Result); // Если цифра нечетная, увеличиваем счетчик
    number := number div 10; // Удаляем последнюю цифру числа
  end;
end;

Как использовать эту функцию:

pascalCopy code
program CountOddDigitsExample;

function CountOddDigits(number: Integer): Integer;
var
  digit: Integer;
begin
  Result := 0; // Изначально количество нечетных цифр равно 0
  number := Abs(number); // Обработаем отрицательные числа (если необходимо)

  // Перебираем все цифры числа
  while number > 0 do
  begin
    digit := number mod 10; // Получаем последнюю цифру числа
    if digit mod 2 <> 0 then
      Inc(Result); // Если цифра нечетная, увеличиваем счетчик
    number := number div 10; // Удаляем последнюю цифру числа
  end;
end;

var
  num: Integer;
  oddCount: Integer;
begin
  Write('Введите число: ');
  Readln(num);
  oddCount := CountOddDigits(num);
  WriteLn('Количество нечетных цифр в числе: ', oddCount);
end.

Программа попросит вас ввести число, а затем выведет количество нечетных цифр в этом числе.