Имеется текстовый файл.Переписать в другой файл те его строки,в которых имеется более 30-ти символов.
Имеется текстовый файл.Переписать в другой файл те его строки,в которых имеется более 30-ти символов.
Ответ(ы) на вопрос:
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.
Не нашли ответ?
Похожие вопросы