Question

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

Answer 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

function KD(n:int64):=n.ToString.Count;

function KED(n:int64):=n.ToString.Where(d->Pos(d,'02468')>0).Count;

function KOD(n:int64):=n.ToString.Where(d->Pos(d,'13579')>0).Count;

begin
  var n:int64; Write('n='); Read(n);
  Writeln('Количество цифр в числе ',KD(n));
  Writeln('Количество четных цифр в числе ',KED(n));
  Writeln('Количество нечетных цифр в числе ',KOD(n));
end.

Answer 2

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

1. Функция для нахождения количества цифр числа:

pascalCopy code
function CountDigits(number: Integer): Integer;
begin
  if number = 0 then
    Result := 1
  else
  begin
    Result := 0;
    while number <> 0 do
    begin
      Inc(Result);
      number := number div 10;
    end;
  end;
end;

2. Функция для нахождения количества четных цифр числа:

pascalCopy code
function CountEvenDigits(number: Integer): Integer;
begin
  Result := 0;
  while number <> 0 do
  begin
    if (number mod 10) mod 2 = 0 then
      Inc(Result);
    number := number div 10;
  end;
end;

3. Функция для нахождения количества нечетных цифр числа:

pascalCopy code
function CountOddDigits(number: Integer): Integer;
begin
  Result := 0;
  while number <> 0 do
  begin
    if (number mod 10) mod 2 = 1 then
      Inc(Result);
    number := number div 10;
  end;
end;

Пример использования:

pascalCopy code
var
  num: Integer;
begin
  num := 123456;

  // Нахождение количества цифр числа
  WriteLn('Количество цифр числа ', num, ' : ', CountDigits(num));

  // Нахождение количества четных цифр числа
  WriteLn('Количество четных цифр числа ', num, ' : ', CountEvenDigits(num));

  // Нахождение количества нечетных цифр числа
  WriteLn('Количество нечетных цифр числа ', num, ' : ', CountOddDigits(num));
end.

Замените значение переменной num на любое число, которое вы хотите проанализировать. Эти функции подсчитают количество цифр, четных и нечетных цифр в заданном числе.