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

А как написать такую программу с циклами?

Длинно и противно.

А главное, непонятно зачем.

надо только с использованием циклов решить задачу. такое требование

Внимательно смотрю Ваше условие задачи. Нет там такого требования. А после получения ответа требования поздно выставлять.

// 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