Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.