текстовой файл

@ULTIMATUM · Регистрация: 19.04.2010

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

скопировать строки текстового файла F ,превышающие заданную длину, в текстовом файле G

@Law[L]esS · 04.05.2010, 18:15

Pascal

var
 s:string;
 f,f2:text;
 dl:integer;
begin
 readln(dl);
 assign(f,'kot.txt');
 reset(f);
 assign(f2,'kot2.txt');
 rewrite(f2);
 while not eof(f) do begin
   readln(f,s);
   if length(s) > dl then writeln(f2,s);
 end;
 close(f);
 close(f2);
end.

@ULTIMATUM · 04.05.2010, 20:54 **[ТС]**

а как проверить....я ввожу строку не выходит?

Добавлено через 4 минуты
что необходимо ввести,чтоб проверить?

@ULTIMATUM 0 / 0 / 0 Регистрация: 19.04.2010 Сообщений: 18
		1
	текстовой файл 04.05.2010, 17:58. Показов 1284. Ответов 2 Метки нет (Все метки) скопировать строки текстового файла F ,превышающие заданную длину, в текстовом файле G 0

@ULTIMATUM 0 / 0 / 0 Регистрация: 19.04.2010 Сообщений: 18
	04.05.2010, 20:54 [ТС]	3
	а как проверить....я ввожу строку не выходит? Добавлено через 4 минуты что необходимо ввести,чтоб проверить? 0

текстовой файл

Решение