• Задан текстовый файл с произвольным именем. А, сколько слов содержит этот файл. Все слова разделены пробелами, не обязательно одиночными. Найдите все слова максимальной длины.

    Решать в PascalABC.NET, полное решение, пожалуйста. Желательно попроще, без лишних функций.

Ответы 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
    answer img
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years