Задана строка, что состоит из слов, разделенная одним или несколькими пропусками... (Pascal)

[bot0]

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

[was3110]

Это уже было много раз...

[Serge_Bliznykov]

значит так, поиском по форуму находите код, который выделяет из строки слова (это было множество раз, в самых разных вариантах реализации).
Потом, для каждого слова проверяете, например таким кодом:

function isDubleLettrers(OneWord : string) : boolean;
var i:integer;
     isFound : boolean; 
begin
  isFound := false; {вначале считаем, что таких букв нет}

  i := 1; {начиная с первой буквы}
  while (i<Length(OneWord)) and (Not isFound) do  begin 
    {если текущая буква равна следующей, значит нашли такую пару!}
    if OneWord[i] = OneWord[i+1] then 
          isFound := true;
    inc(i);
  end;

  isDubleLettrers :=  isFound;
end;

p.s. функцию писал прямо в браузере и не проверял... могуть быть мелкие опечатки...

[Stilet]

Ой держите меня семеро... Точно нужно было патентовать: http://www.programmersforum.ru/showt...369#post398369
В нем всего лишь дописать:

k:integer;
...
 s:='Hello my worrld';
 count:=1;      k:=0;
...
   if (length(a[count])>0)and(a[count][length(a[count])]=s[i]) then inc(k);
   a[count]:=a[count]+s[i];
...
 write(k);

))))))

Автор, поиск не просто рулит, поиск является посланцем вселенной, хватай полотенце и дуй за ним по вселенной автостопом.