Question

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

Answer 1

Ответ:

// PascalABC.NET

begin

 var n := ReadInteger;

 var a := (1000..9999).Where(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));

end.

Пример:

Answer 2

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

Answer 3

Мне нужна школьная программа, мы это ещё не проходили