Число пустых строк файла на Pascal

Программирование Программирование на Pascal Число пустых строк файла на Pascal

Помечено: 

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 1 год, 2 мес. назад.

Просмотр 1 сообщения - с 1 по 1 (всего 1)
  • Автор
    Сообщения
  • #3768

    Посчитать, сколько пустых строк находиться в заранее созданном файле.

    program file_14;
    uses crt;
    var
      i, n, k: integer;
      s: string;
      f: text;
    begin
      clrscr;
      assign(f, 'file.txt');
      { Файл создается заранее }
      reset(f);
      k:=0;
      while not eof(f) do
      begin
        readln(f, s);
        if length(s)=0 then k:=k+1;
        i:=i+1;
      end;
      write('В файле ', k, ' пустых(ая) строк(а)');
      close(f);
      readkey;
    end.

Просмотр 1 сообщения - с 1 по 1 (всего 1)

Для ответа в этой теме необходимо авторизоваться.