Дан текстовый файл. Переписать в новый файл все его строки, длина которых больше заданного числа. Входной файл «1.txt» содержит строковые словосочетания
Категория: Delphi/Pascal
2012-01-26 19:59:43
code: #pascal
Program PascalGuru; var g,f:text; s:string; n:integer; begin assign (f,'1.txt' ); reset (f); assign (g,'2.txt' ); rewrite (g); write('Vvvedite "zadannoe chislo":'); readln(n); while not eof(f) do begin readln(f,s); if length(s)>n then writeln(g,s) end; close(f); close(g); writeln('Isxodnye dannye uspeshno zapisany v fail "2.txt"'); readln; end.
Поделиться: