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.