Пожалуйста посчитайте ПОЖАЛУЙСТА С ИНФОРМАТИКОЙ!!! ДАМ 100поинтов(все равно тратить некуда) ОСТАЛОСЬ ДВА ДНЯ!!!​

// PascalABC.NET

 n := ReadInteger;

 a := (1000..9999).(c -> c

                                                         .ToString

                                                         .AsEnumerable

                                                         .Sum(c -> integer.Parse(c)) = n

                                                ).Println;

 Println('Количество: ', a.Count);

 Println('Четных: ', a.Count(c -> c.IsEven));

 Println('Нечётных: ', a.Count(c -> c.IsOdd));

.

1. Да, только если на новой странице, тут поменять уже не могу