Question

С клавиатуры вводится строка, состоящая из слов на русском языке, отделённых друг от друга одним или несколькими пробелами. Удалить из строки все слова, в которых отсутствуют гласные буквы. Вывести полученную строку на экран.

Answer 1

// PascalABC.NET 3.3

begin
  var s:=ReadlnString;
  var gl:=['А','а','Е','е','Ё','ё','И','и','О','о',',У','у',',Ы','ы','Э','э','Ю','ю',',Я','я'];
  var a:=s.ToWords.Where(w->w.Where(c->(c in gl)).Count>0);
  s:=a.JoinIntoString(' ');
  s.Println;
end.

Пример:
Пример    клмн проба прст фхцчшщ   всё
Пример проба всё