Question

Задан текстовый файл с произвольным именем. а, сколько слов содержит этот файл. все слова разделены пробелами, не обязательно одиночными. найдите все слова максимальной длины. решать в pascalabc.net, полное решение, . желательно попроще, без лишних функций.

Answer 1

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var fn := ReadlnString('Введите имя файла:');

 if not FileExists(fn) then

 begin

   Print('Файл не найден');

   exit

 end;

 var a := ReadAllText(fn).ToWords; // массив слов

 Println('Количество слов в файле:', a.Length);

 var lmax := a.Select(w -> w.Length).Max;

 Println('Перечень слов с максимальной длиной');

 a.Where(w -> w.Length = lmax).Println

end.

Во втором вложении дается тестовый файл Pushkin2.txt