С клавиатуры вводится строка, состоящая из слов на русском языке, отделённых друг от друга одним или несколькими пробелами. Удалить из строки все слова, в которых отсутствуют гласные буквы. Вывести полученную строку на экран.
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.
Пример: Пример клмн проба прст фхцчшщ всё Пример проба всё
Answers & Comments
Verified answer
См документ==================================
Verified answer
// PascalABC.NET 3.3begin
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.
Пример:
Пример клмн проба прст фхцчшщ всё
Пример проба всё