Определить количество слов в предложении, которые начинаются и оканчиваются одним и тем же символом

@Пацифика · Регистрация: 10.11.2011

Author24 — интернет-сервис помощи студентам

Определить количество слов в предложении, которые начинаются и оканчиваются одним и тем же символом.
(словом считается набор произвольных символов, не содержащий пробелов и ограниченный пробелами или началом/концом строки, слова разделены произвольным количеством пробелов, в начале или конце предложения может быть также любое число пробелов)

@КонецСвета · 13.12.2011, 21:17

Pascal

uses crt;
var s,sl: string;
    i,k: integer;
begin
write('s=');
readln(s);
s:=s+' '; sl:='';
for i:=1 to length(s) do
    if s[i]<>' '  then sl:=sl+s[i] else
       begin
       if (length(sl)<>0) and (sl[1]=sl[length(sl)]) then inc(k);
       sl:='';
       end;
if k=0 then writeln('Нет слов, начин. и заканч. на одну букву') else
writeln('Количество слов, начин. и заканч. на одну букву ',k);
readkey
end.

@Пацифика 0 / 0 / 0 Регистрация: 10.11.2011 Сообщений: 3
		1
	Определить количество слов в предложении, которые начинаются и оканчиваются одним и тем же символом 13.12.2011, 20:57. Показов 1624. Ответов 1 Метки нет (Все метки) Определить количество слов в предложении, которые начинаются и оканчиваются одним и тем же символом. (словом считается набор произвольных символов, не содержащий пробелов и ограниченный пробелами или началом/концом строки, слова разделены произвольным количеством пробелов, в начале или конце предложения может быть также любое число пробелов) 0

	13.12.2011, 21:17

Определить количество слов в предложении, которые начинаются и оканчиваются одним и тем же символом

Решение