Написать программу подсчитывающую кол-во чётных и нечётных цифр в числе.

Question

Написать программу подсчитывающую кол-во чётных и нечётных цифр в числе.

Comments

// PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018begin var s := ReadInteger.ToString; var k := s.Where(c -> '02468'.Contains(c)).Count; Println('Четных', k, 'нечетных', s.Length - k);end.

Answer 1

Форматированный код на C#  и демонстрация работы на скриншотах.

Код текстом ниже.

using System;

using System.Linq;

namespace task29989793

{

   class Program

   {

       static void Main()

       {

           Console.Write("Enter number: ");

           var number = Console.ReadLine().Select(i => int.Parse(i.ToString()));

           Console.WriteLine($"Count of odd digits: {number.Count(i => i % 2 == 1)}");

           Console.WriteLine($"Count of even digits: {number.Count(i => i % 2 == 0)}");

       }

   }

}

---

---

Comments

Извините, но мне нужен Паскаль

---

¯\_(ツ)_/¯