Дана строка, содержащая текст ** русском языке определить сколько раз в ней встречается...

Question

Дана строка, содержащая текст на русском языке определить сколько раз в ней встречается самое длинное слово
p.s язык Paskal

Answer 1

// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
  var a:=ReadlnString('Введите текст:').ToWords;
  var m:=a.Select(w->w.Length).Max;
  Writeln('Слов с максимальной длиной: ',
      a.Where(w->w.Length=m).Count)
end.

Тестовое решение:
Введите текст: Определяем сколько раз в строке встретится самое длинное слово
Слов с максимальной длиной: 2

Comments

а для обычного паскаля решения нет?

---

А это что, какой-то волшебный Паскаль?

---

Я позволю себе привести цитату из презентации разработчиков Паскаль 3.0

---

Стандартный Паскаль - такого не существует.
Стандарт языка Паскаль есть, он закрытый, им никто не пользуется.
То, что обычно называют стандартным Паскалем, – это некоторое идеализированное представление о минимальном наборе конструкций языка Паскаль.

---

Обычно у каждого это представление – своё, но связывается оно с уже не существующей версией Turbo Pascal, а также со средствами языка, существовавшими 20-30 лет назад и вредными для современного обучения программированию. Все языки развиваются. Те языки, которые не развиваются, – умерли.