Имеются ли в последовательности слова, все буквы в которых находятся в алфавитном порядке.

Question

Имеются ли в последовательности слова, все буквы в которых находятся в алфавитном порядке.

Answer 1

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

begin
  var a:=ReadlnString('Вводите слова через пробел:').ToWords;
  foreach var w in a do
    if w=w.Sorted.JoinIntoString('') then Print(w)
end.

Comments

спасибо