Дан текстовый файл, содержащий более трех строк. Удалить из него три последние строки

@zuza · Регистрация: 23.06.2013

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

@CodeR · 24.06.2013, 09:43

Pascal

Var f,g:text;
    s:string;
    i,k:byte;
Begin
    Assign(f,'in.txt');Reset(f);
    While not Eof(f) do
    Begin
      readln(f,s);
      inc(k);
    End;
    Close(f);
    Reset(f);
    Assign(g,'out.txt');Rewrite(g);
    While i<k-3 do
    Begin
      readln(f,s);
      writeln(g,s);
      inc(i);
    End;
    Close(f);Erase(f);
    Close(g);Rename(g,'in.txt');
    writeln('Результат в файле "in.txt"');
    readln;
End.

@zuza 0 / 0 / 0 Регистрация: 23.06.2013 Сообщений: 9
		1
	Дан текстовый файл, содержащий более трех строк. Удалить из него три последние строки 23.06.2013, 23:41. Показов 2779. Ответов 1 Метки нет (Все метки) Дан текстовый файл, содержащий более трех строк. Удалить из него три последние строки 0

	24.06.2013, 09:43

Дан текстовый файл, содержащий более трех строк. Удалить из него три последние строки

Решение