Описать процедуру, в которой в начало каждой подстроки в строке добавляется количество...

Question

Описать процедуру, в которой в начало каждой подстроки в строке добавляется количество символов подстроки (подстроки отделяются пробелами)

Comments

да да

Answer 1

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

procedure Sly(var a:string);
begin
  a:=a.ToWords.Select(w->w.Length+w).JoinIntoString;
end;

begin
  var s:=ReadlnString('Введите строку:');
  Sly(s); Writeln(s)
end.

Пример
Введите строку: Первое второе третье четвертое пятое
6Первое 6второе 6третье 9четвертое 5пятое