1)Дан текстовый файл. Записать в другой файл все строки, длина которых больше 5 символов. 2)Дан текстовый файл. Вставить в его начало строку, состоящую из пяти звездочек (*****), а в конец строку из пяти символов черточек (---...
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.
Не нашли ответ?
Похожие вопросы