Записать в другой файл все строки, длина которых больше 5 символов - Pascal

Формулировка задачи:

Дан текстовый файл. Записать в другой файл все строки, длина которых больше 5 символов. Помогите пжлст

Код к задаче: «Записать в другой файл все строки, длина которых больше 5 символов - Pascal»

textual
var
s:string;
f,f1:text;
begin
assign(f,'input.txt'); reset(f);
assign(f1,'otput.txt');rewrite(f1);
while not Eof(f) do
    begin
    readln(f,s);
    if length(s) > 5 then
        writeln(f1,s);
    end;
close(f);close(f1);
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

6   голосов, оценка 4.167 из 5


СОХРАНИТЬ ССЫЛКУ