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

Question

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

Answer 1

// 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
Первое слово: Это, последнее: строчка

Comments

спасибо большое, а в php его можешь транслировать?)

---

А причем тут PHP? Но в целом нет, я не увлекаюсь сайтописаниной и не люблю маркап-языки.

---

Помнится, там есть explode, которая строку парсит по разделителю в массив...с ней можно все сделать.