Вводится последовательность символов, оканчивающаяся точкой. Сосчитать количество слов.В Pascal.

Ответы:

Лена Мельниченко

30-03-2014 19:07

Var s,q:string; i,n,j,m,k,l:longint;begin Readln(s); m:=0; s:=+s+; for i:=1 to length(s) do if s[i]<> then begin if s[i-1]= then l:=i; if s[i+1]= then begin inc(m); end; end; Writeln(m);end.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Женя Борисова

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Вводится последовательность символов, оканчивающаяся точкой. Сосчитать количество слов.В Pascal.» от пользователя Женя Борисова в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!