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