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

@Lerk0 · Регистрация: 02.04.2017

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

@Puporev · 21.04.2017, 17:36

Pascal

var f,g:text;
    s:string;
    k:byte;
begin
assign(f,'1.txt');
reset(f);//файл лежит в папке с программой
assign(g,'2.txt');
rewrite(g);
k:=0;
while not eof(f) do
 begin
  readln(f,s);
  if (s[length(s)]='?')and(k=0) then k:=1
  else writeln(g,s);
 end;
close(f);
close(g);
end.

@Lerk0 · 21.04.2017, 18:13 **[ТС]**

спасибооо

@Lerk0 0 / 0 / 0 Регистрация: 02.04.2017 Сообщений: 11
		1
	Имеется текстовый файл. Удалить из него первую строку. 21.04.2017, 14:38. Показов 2019. Ответов 2 Метки нет (Все метки) Имеется текстовый файл. Удалить из нее первую строку, в конце которой стоит вопросительный знак. Результат записать в другой файл __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Lerk0 0 / 0 / 0 Регистрация: 02.04.2017 Сообщений: 11
	21.04.2017, 18:13 [ТС]	3
	спасибооо 0

Опции темы

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

Решение