Текстовые файлы. Подсчет количества пустых строк

@Влад К · Регистрация: 30.12.2012

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

"Задача.
Написать программу,которая подсчитывает кол-во ПУСТЫХ строк."
помогите!!

@Puporev · 23.01.2013, 19:10

Pascal

uses crt;
var f:text;
    s:string;
    k:integer;
begin
assign(f,'text.txt');
reset(f);
k:=0;
while not eof(f) do
 begin
  readln(f,s);
  if s='' then k:=k+1;
 end;
close(f);
write('Количество пустых строк=',k)
end.

@Влад К 0 / 0 / 1 Регистрация: 30.12.2012 Сообщений: 10
		1
	Текстовые файлы. Подсчет количества пустых строк 23.01.2013, 18:41. Показов 1505. Ответов 1 Метки нет (Все метки) "Задача. Написать программу,которая подсчитывает кол-во ПУСТЫХ строк." помогите!! 0

	23.01.2013, 19:10

Текстовые файлы. Подсчет количества пустых строк

Решение