Question

Pascal
Ввести текст, состоящий не менее чем из 12 слов. Из текста выделить все слова, которые начинаются с того же символа, с которого начинается последнее слово заданного текста.

Answer 1

// PascalABC.NET

begin

 var a := ReadString.ToWords;

 if a.Length < 12 then Print('Введено меньше 12 слов')

 else

 begin

   var c := a.Last.ToCharArray.Last;

   a.Where(p -> p.First = c).Print

 end

end.