profile
Опубликовано 6 лет назад по предмету Информатика от 12345qwertyghj

1)Дан текстовый файл. Записать в другой файл все строки, длина которых >5 символов. 2)Дан текстовый файл. Вставить в его начало строку, состоящую из пяти звездочек (*****), а в конец строку из пяти символов черточек (-----).

  1. Ответ
    Ответ дан emblerik

    1)

    var

      f1, f2 : textfile;

      str : string;

    begin

    assign (f1, 'input.txt'); reset (f1);

    assign (f2, 'output.txt'); rewrite (f2);

      while not eof (f1) do

      begin 

        readln (f1, str);

        if length (str) > 5 then writeln (f2, str); 

      end;

    close (f1);

    close (f2);

    end.

Самые новые вопросы