Имеется текстовый файл. Переписать в другой файл те его строки, в которых имеется более 30-ти символов.

Question

Информатика

Аникитка

12 декабря, 17:34

Имеется текстовый файл. Переписать в другой файл те его строки, в которых имеется более 30-ти символов.

+5

Ответы (1)

Знаете ответ на вопрос?

Емилия · Answer 1

Const

n = 30;

var

fin, fout: Text;

s: string;

begin

Assign (fin, 'input. txt') ;

Reset (fin) ;

Assign (fout, 'output. txt') ;

Rewrite (fout) ;

while not eof (fin) do

begin

readln (fin, s) ;

if length (s) > n then writeln (fout, s)

end;

Close (fin) ;

Close (fout)

end.