Переписать в файл g все рядки файла f, которые имеют больше 30 символов

@daves · Регистрация: 24.03.2011

Студворк — интернет-сервис помощи студентам

Всем привет, нид хэлп!
2. Дано текстовый файл f. Переписать в файл g все рядки файла f, которые имеют больше 30 символов.
Помогите пожалуйста, всем не равнодушным - спасибок накидаю.

@CodeR · 26.11.2012, 08:54

Pascal

Var f,g:text;
    s:string;
Begin
    Assign(f,'in.txt');Reset(f);
    Assign(g,'out.txt');Rewrite(g);
    While not Eof(f) do
    Begin
      readln(f,s);
      if Length(s)>30 then writeln(g,s);
    End;
    Close(f);Close(g);
    writeln('Обработка закончена!');
End.

@daves 0 / 0 / 0 Регистрация: 24.03.2011 Сообщений: 45
		1
	Переписать в файл g все рядки файла f, которые имеют больше 30 символов 25.11.2012, 20:30. Показов 1347. Ответов 1 Метки нет (Все метки) Всем привет, нид хэлп! 2. Дано текстовый файл f. Переписать в файл g все рядки файла f, которые имеют больше 30 символов. Помогите пожалуйста, всем не равнодушным - спасибок накидаю. 0

Опции темы

Переписать в файл g все рядки файла f, которые имеют больше 30 символов

Решение