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

Ответы 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 img
    • Автор:

      bellacruz
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years