С клавиатуры вводится предложение, в котором слова разделены пробелами. определите, сколько слов в этом предложении начинается и з

[Boys]

С клавиатуры вводится предложение, в котором слова разделены пробелами. определите, сколько слов в этом предложении начинается и заканчивается на одну и ту же букву

[Serge_Bliznykov]

пусть введена фраза:
В Лондоне был второй в мире лучший бал
что должна выдать программа?
число 7 ?

[Aleksandr H.]

имхо, SQRT(SQR(2)) , или ето вопрос чтобы ТС немного поработал мозгами а не только создал новую тему и взял все готовое?

[Stilet]

число 7 ?

Чего 7?
Два должно быть.

[Serge_Bliznykov]

Сообщение от Stilet

Чего 7?
Два должно быть.

во-первых, я бы предпочёл услышать ответ (с объяснением, как подсчитал) от товарища автора темы

во-вторых, почему два то?!
Это бы "бал был" не подсчитали или
"второй в" ?
я уже молчу от регистрах...

[Dvoishnik]

ИМХО: 2 потому что слово "в" заканчивается и начинается на одну и туже букву.

[Serge_Bliznykov]

А!!! Приношу свои глубочайшие извинения!!!
я был не прав!

прочитал задание быстренько - "по диагонали".
и прочиталось как "сколько слов в этом предложении начинается на одну и ту же букву"

извините.

[Stilet]

я уже молчу от регистрах...

От регистрах станет всем светлей... гы-гы-гы

[newerow1989]

var i,count:integer;
    s:string;
    c:char;
begin
   s:='В Лондоне был второй в мире лучший бал';
   s:=s+' ';
   count:=0;
   c:=s[1];
   For i:=1 to Length(s) do
      If s[i]=' ' then
      begin
         If c=s[i-1] then
            count:=count+1;
         If i<Length(s) then
            c:=s[i+1];
      end;
   Writeln(count);
   Readln;
end.

Сойдет?