строки, количество слов с разным кол-ом слогов Опции

[кучаТрупов]

задача: сколько слов в тексте имеет 1 слог,2 слога,3 слога и т.д.(кол-во слогов в слове совпадает с кол-ом гласных)

в Фак'е было только про *сколько раз заданное слово встречаетсся в тексте*
и больше я не нашла что бы мне помогло.

[volvo]

ну текст уже дан словами. его разбивать не надо же.

Это тебе только кажется... Не надо было бы разбивать - если б текст был дан в виде массива слов. Вот тогда достаточно было бы просто пробежаться по всему массиву, и посчитать то, что тебе нужно...

Кроме всего прочего - задание надо указывать полностью, в первом посте не было ничего сказано о том, что разделяются слова в тексте только пробелами. Если ты в этом уверена - все еще проще:

count := 0;
for i := 1 to length(s) do begin
	if s[ i ] in glas then inc(count)
	else
		if s[ i ] = ' ' then begin
			inc(mas[count]);
			count := 0;
		end
end;
{ mas заполнен, количество слов с I слогами хранится в mas[ i ] }

(чтобы не мучить себя обработкой конца строки - ты ж уверена, что слова разбиваются ТОЛЬКО пробелами, значит, признака конца строки, например, точки, не будет - к исходной строке допиши справа один пробел)