Информатика

Предложением будем называть любой набор символов до 255 знаков. В конце может стоять точка. «слова» разделяются пробелом или запятой.

Пример в качестве разделителя пробел и узнать кол – во слов:
//процедуры удаления пробелов в начале и в конце строки

Procedure Del_Sp_L(var s:string);
Begin
While s[1]=’ ’ do

Delete(s,1,1);
end;

Procedure Del_Sp_R(var s:string);
Begin
While s[length(S)]=’ ’ do

Delete(s, length(S),1);
end;

//сколько слов начинается заданной буквой