Question

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

Answer 1

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

begin

 var s := ReadInteger.ToString;

 var Четных := s.Where(c -> '02468'.Contains(c)).Count;

 var Нечетных := s.Where(c -> '13579'.Contains(c)).Count;

 Println('Четных', Четных, 'нечетных', Нечетных);

end.

Answer 2

Всё-таки по-своему))

Answer 3

Только на отрицательном числе будет врать))

Answer 4

Почему? знак "-"?

Answer 5

Можно сразу сделать абсолютное число и проблем не будет

Answer 6

Abs - можно. Знак "-" не отберется в четные и при вычитании из общего количества увеличит нечетные на 1.