Имеется текстовый файл. Удалить из него третью строку. Результат записать в другой файл

@Дарья_Дерр · Регистрация: 27.10.2013

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

Имеется текстовый файл. Удалить из него третью строку. Результат записать в другой файл.

@ildwine · 05.02.2014, 18:33

Pascal

var
  f, g : text;
  s : string;
  k : integer;
begin
  k := 0;
  assign(f, 'dasha.txt');
  assign(g, 'dasha2.txt');
  reset(f); 
  rewrite(g);
  while not EOF(f) do
  begin
    readln(f, s);
    inc(k);
    if k <> 3 then writeln(g, s)
  end;
  close(f);
  close(g);
  writeln('готово')
end.

@Дарья_Дерр 1 / 1 / 1 Регистрация: 27.10.2013 Сообщений: 59
		1
	Имеется текстовый файл. Удалить из него третью строку. Результат записать в другой файл 05.02.2014, 18:00. Показов 3599. Ответов 1 Метки нет (Все метки) Имеется текстовый файл. Удалить из него третью строку. Результат записать в другой файл. 0

	05.02.2014, 18:33

Опции темы

Имеется текстовый файл. Удалить из него третью строку. Результат записать в другой файл

Решение