Помогите пожалуйста) Вводится число. Получить два числа: в первом собрать все цифры,...

Question

Помогите пожалуйста)
Вводится число. Получить два числа: в первом собрать все цифры, меньшие среднего арифметического всех цифр в том же порядке, как они идут в числе; а во втором - цифры >= среднего арифметического в обратном порядке (в паскале)

Answer 1

// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Введите число');
  var avg:=s.Select(c->c.ToDigit).Average;
  var b:=s.Partition(c->c.ToDigit  b[0].Println; b[1].Reverse.Println
end.

Пример
Введите число 425079387643267802322
420343202322
876678975

Comments

Схитрили ))) оттолкнулись от строки... я пошел другим более тернистым путем )))

---

b[0] и b[1] - последовательности, возможно из них сделать именно число не используя foreach?

---

Да, спасибо!

Answer 2

Код в приложении.
Обновите версию PascalABC.NET 3.2 если не будет работать.