Написать программу для подсчета количества слов максимальной длины в тексте. Текст вводится с клавиатуры. Признак окончания текста точка.
На паскале пожалуйста

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

begin
  var s:=ReadlnString(Введите текст, оканчивающийся точкой:+NewLine);
  var p:=Pos(.,s); if p>0 then s:=s[:p]; // обрезать лишнее
  var a:=s.ToWords;
  var sb:=a.Select(w->w.Length);
  var max:=sb.Max;
  Writeln(Количество слов максимальной длины равно , sb.Where(x->x=max).Count)
end.

Пример
Введите текст, оканчивающийся точкой:
 мама мыла раму маша ела кашу. А это не считается!
Количество слов максимальной длины равно 5

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.