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

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

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

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

[amega]

к исходной строке допиши справа один пробел)

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
           if  i=length(s) then inc(mas[count]);
     end;

теперь не нада

Сообщение отредактировано: amega - 19.03.2009 23:36