• Программа на Паскале
    Дан текстовый файл f, каждая строка которого состоит из слов, разделённых одним и более пробелами. Записать все строки, в которых количество слов минимально, но больше нуля, в новый файл g.

    Можно не писать прогу, но объяснить, что, откуда и зачем. И написать как взаимодействовать с файлами.

Ответы 3

  • Рекомендована версия 3.2 и приведена ссылка на сайт разработчика для скачивания и установки.
  • Я Вам в личку ссылку кину
  • // PascalABC.NET 3.2, сборка 1417 от 28.03.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ReadAllLines('Pushkin.txt');  Writeln('*** Текст в файле ***',NewLine);  a.Println(NewLine);  var n:=a.Select(s->s.ToWords.Count).Where(k->k>0).Min;  a:=ReadLines('Pushkin.txt').Where(s->s.ToWords.Count=n).ToArray;  WriteLines('Result.txt',a);  Writeln(NewLine,'*** Новый файл ***',NewLine);  ReadLines('Result.txt').Println(NewLine)end.Пример:*** Текст в файле ***Если жизнь тебя обманет,Не печалься, не сердись!В день уныния смирись:День веселья, верь, настанет.Сердце в будущем живет;Настоящее уныло:Всё мгновенно, всё пройдет;Что пройдет, то будет мило.   (А.С. Пушкин, 1825)*** Новый файл ***Настоящее уныло:
    answer img
    • Автор:

      powder
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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