Сдвоенные буквы Опции

[Алексей]

Помогите!Надо найти количество сдвоенных букв в предложении.(если можно на turbopascale,или мысль какую нибудь по этому поводу)

[___ALex___]

у тебя есть хоть какие-то мысли на сей счёт?
ну напиши ты себе где-нибудь строку типа
  dfdfddf     fg fgfggfgfg 4d    fg если так не въезжаешь и подумай
здесь если я правильно понял количество сдвоенных букв равно 2

[Nightmare]

Код

Uses Crt;
Var
 S: String;
 I, Cnt: Byte;
begin
 ClrScr;
 Readln( S );
 If Length( S ) < 2 then Halt( 255 );
 Cnt := 0;
 For I := 2 to Length( S ) do
 begin
   If S[I] = S[I-1] then Inc( Cnt );
 end;
 Writeln( 'Сдвоенных букв: ', Cnt:3 );
end.

Всё довольно просто...

[zx1024]

А, сколько здесь сдвоенных букв "абббв"?

[___ALex___]

Nightmare
если ты даже правильно понял условие задачи, то если говорить строго - она решена неверно, поскольку в условии сказано БУКВ,
а не символов

[Алексей]

Ну например :
Классификация групп
Сдесь сс и пп сдвоенные

[Nightmare]

Дико извиняюсь, прохлопал, в мозгах засело именно символов.

Тогда уточните набор допустимых символов и что делать если подряд идет больше двух одинаковых.

А вообще принцип будет такой-же, только If посложнее получится

[Nightmare]

Мне тут в голову вступил такой глупый вопрос:
А строчные и прописные считать одинаковыми?

И вообще, господин вопрошающий, поясните на какой уровень сложности тянет эта задача, а то это может закончится обсуждением раскладки второй половины знакогенератора (а может она ГОСТ`овская).

[Алексей]

Спасибо за помощь!