Question

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

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
Хотя бы одна цифра должна быть четной