Строки, Pascal

[VistBacK]

Помогите пожалуйста решить одну задачку в Паскале...

Определить сколько раз в заданном предложении встретится сочетание 2х первых букв. Напечатать исходный тексти число сочетаний.

Заранее спасибо..

[somewhere]

Код: Выделить всё

if length(s)>3 then for x:=3 to length(s)-1 do if (s[x]=s[1]) and (s[x+1]=s[2]) then inc(count);
writeln(s);
writeln(count);

[airyashov]

А если все строка одинаковые буквы, "AAAAAAAA....", то сколько сочетаний

[Хыиуду]

Соответственно, length-1

[C_O_D_E]

Соответственно, length-1

а я не согласна...
если вся строчка одинаковых букв, то я бы решала через число сочетаний из N по M, где N - длина строки, а М -- 2.

[somewhere]

В условии задачи не оговорено расположение букв: вподряд или хаотично. Если сказано что нужно сделать утюг, то не надо делать металлургический завод.

[Serge_Bliznykov]

я не согласна...
если вся строчка одинаковых букв, то я бы решала через число сочетаний из N по M, где N - длина строки, а М -- 2.

извините, но тут уж я с Вами категорически не согласен!!
Если стоит вопрос "сколько раз ... встретится сочетание 2х ... букв"
то нельзя сказать, что в слове, например, "корова" втретилось сочетание букв "кар" или букв "вор" или букв "кора" (это предлогаемые Вами сочетания..) - согласны?

[C_O_D_E]

хм...
я как всегда))
Serge_Bliznykov, вы абсолютно правы.
Хыиуду, извините) обшиблась.