Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Pascal.Дана строка. Подсчитать и вывести количество слов, первое и последнее слово

Ответ оставил Гость

// PascalABC.NET 3.0, сборка 1088
begin
  var s:=ReadLnString(Введите строку: );
  var a:=s.ToWords.ToArray;
  Writeln(Слов в строке: ,a.Length);
  Writeln(Первое слово: ,a[0],, последнее: ,a[a.Length-1])
end.

Тестовое решение:
Введите строку: Это    наша     тестовая строчка
Слов в строке: 4
Первое слово: Это, последнее: строчка