строки Опции

[саня ильин]

Определить сколько слов в строке имеет количество букв больше некоторого числа N.

[Archon]

const
	A = ['A'..'Z'] + ['a'..'z']; { Множество латинских букв. }
var
	n, i: Integer;
	s: String;
	j: Integer; { Число букв в текущем слове }
	Num: Integer; { Число слов с числом букв больше n }
begin
	Write('Введите строку: ');
	ReadLn(s);
	Write('Введите максимальную длину слов, неучитываемых при подсчете: ');
	ReadLn(n);
	j := 0;
	Num := 0;
	for i := 1 to Length(s) do { Для каждого символа строки }
		if s[i] in A then { проверяем, является ли он буквой. }
			Inc(j) { И если является, увеличиваем счетчик букв в текущем слове. }
		else begin { В противном случае слово закончилось }
			if j > n then Inc(Num); { и надо его посчитать (если число букв подходит) }
			j := 0; { и обнулить счетчик букв. }
		end;
	if j > n then Inc(Num); { После последнего слова может не оказаться разделителя, }
	                        { его тоже следует посчитать.                            }
	WriteLn('В предложении ', Num, ' слов(о/а) длиннее ', n, ' букв(ы).');
	ReadLn;
end.