Подсчитать количество слов в файле

@Teos · Регистрация: 08.12.2014

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

Сформировать текстовый файл. Файл должен содержать не менее 5 строк и в каждой строке должно быть не менее 5 слов. Слова разделены пробелом. Подсчитать количество слов в файле.

@Puporev · 05.02.2015, 15:00

Pascal

var f:text;
    s:string;
    i,k,n:integer;
begin
assign(f,'input.txt');//файл в папке с программой
reset(f);
k:=0;
while not seekeof(f) do
 begin
  readln(f,s);
  s:=' '+s;
  n:=length(s);
  for i:=2 to n do
  if (s[i]<>' ')and(s[i-1]=' ') then inc(k);
 end;
close(f);
write('Количество слов=',k)
end.

@Teos 0 / 0 / 0 Регистрация: 08.12.2014 Сообщений: 25
		1
	Подсчитать количество слов в файле 05.02.2015, 14:49. Показов 1604. Ответов 1 Метки нет (Все метки) Сформировать текстовый файл. Файл должен содержать не менее 5 строк и в каждой строке должно быть не менее 5 слов. Слова разделены пробелом. Подсчитать количество слов в файле. 0

	05.02.2015, 15:00

Подсчитать количество слов в файле

Решение