Текстовые файлы. Подсчитать, сколько слов начинается с указанной буквы

@fanny.rup · Регистрация: 28.03.2012

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

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

@slon · 18.04.2012, 18:29

Pascal

program qq;
uses crt;
var s,s1:string;
f:text;
i,k:integer;
begin
write('Введите букву :');
readln(s);
k:=0;
assign(f,'...'); //путь к файла вместо многоточия
reset(f);
while not eof(f) do begin
readln(f,s1);
for i:=1 to length(s1) do begin
if (s[i]=k)and(s[i-1]=' ') then k:=k+1;
end;
end;
close(f);
writeln('кол-во слов',k,' начинающихся с буквы ',s);
end.

@fanny.rup 0 / 0 / 0 Регистрация: 28.03.2012 Сообщений: 8
		1
	Текстовые файлы. Подсчитать, сколько слов начинается с указанной буквы 18.04.2012, 17:54. Показов 8389. Ответов 1 Метки нет (Все метки) Даны файл, содержащий текст на русском языке, и некоторая буква. Подсчитать, сколько слов начинается с указанной буквы 0

	18.04.2012, 18:29

Текстовые файлы. Подсчитать, сколько слов начинается с указанной буквы

Решение