C клавиатуры запрашивается строка S. Сформировать в памяти строку R, в которой собраны...

Question

C клавиатуры запрашивается строка S. Сформировать в памяти строку R, в которой собраны все трехсимвольные строки S, сколько таких слов, (Паскаль)

---

Comments

как это записать в паскале

Answer 1

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

begin
  var R:=ReadlnString.ToWords.Where(w->w.Length=3).JoinIntoString(' ');
  R.Println;
  Write('Трехсимвольных слов: ',R.ToWords.Count)
end.

Пример
А кто это тут у нас сидит?
кто это тут нас
Трехсимвольных слов: 4