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

@DASHA_93 · Регистрация: 07.07.2013

Помогите решить вот такую задачу. Дана строка-предложения посчитать количество слов, которые начинаются и заканчиваются на один и тот же символ.

@КонецСвета · 17.07.2013, 03:45

Pascal

uses crt;
const p=[' ','.',',',':',';','!','?','-','(',')','"'];
var s, slovo: string;
    i,k: byte;
 
begin
write('-->'); readln(s);
s:=s+' ';
slovo:='';
for i:=1 to length(s) do
    if not (s[i] in p) then slovo:=slovo+s[i] else
       if length(slovo)>0 then
          begin
          if slovo[1]=slovo[length(slovo)] then inc(k);
          slovo:='';
          end;
writeln('Количество слов, начинающихся и заканчивающихся на одну букву ',k);
readln;
end.

есть и другие варианты...

@DASHA_93 0 / 0 / 0 Регистрация: 07.07.2013 Сообщений: 72
		1
	Дана строка-предложения посчитать количество слов, которые начинаются и заканчиваются на один и тот же символ 16.07.2013, 20:05. Показов 1351. Ответов 1 Метки нет (Все метки) Помогите решить вот такую задачу. Дана строка-предложения посчитать количество слов, которые начинаются и заканчиваются на один и тот же символ. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

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

Решение