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

      Комментарии к записи Число пустых строк файла на Pascal отключены

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

Помечено: 

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

  • Автор
    Сообщения
  • #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.

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