Вводятся три цифры. Требуется составить из них наибольшее возможное четное число. Знаю,...

Question

Вводятся три цифры. Требуется составить из них наибольшее возможное четное число.
Знаю, что легкая, но туплю((((

Comments

Там нужно, чтобы одно было отлично от нуля(хотя бы однт) и хотя бы одно кратно 2

---

Да я это понимаю, но туплю с оформлением. По идее нужно через массивы, ибо по-другому длинно..

---

Согласна) только я туплююю

Answer 1

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

begin
  var L:=ReadSeqInteger('Введите через пробел три цифры',3).ToList;
  if L.All(x->x=0) then Writeln('Хотя бы одна цифра должна отличаться от нуля')
  else
    if L.All(x->x.IsOdd) then Writeln('Хотя бы одна цифра должна быть четной')
    else begin
      var d3:=L.Where(x->x.IsEven).Min;
      L.RemoveAt(L.FindIndex(x->x=d3));
      var s:=L.OrderBy(x->x);
      Writeln(s.Last,s.First,d3)
      end
end.

Примеры:
Введите через пробел три цифры 2 0 5
520

Введите через пробел три цифры 0 5 0
500

Введите через пробел три цифры 3 9 5
Хотя бы одна цифра должна быть четной