Строки

[Svetka1709]

Дана символьная строка. Посчитать, сколько раз в ней встречается подслово АВВА

[Sharom_Debt]

На како языке?

[Lemo]

Pos ... вам в руки

[Sharom_Debt]

Вот на С++

#include <stdio.h>
#include <string.h>
void main()
{
  int k=0;
  char *s="слон,дом,кот,ноль,лес,сало,нос,рыба";
  char *p=strtok(s," "); 
           //Находим первый фрагмент до запятой
  while (p)  //Пока p не NULL
  {
    if(strspn(p,"ABBA")==strlen(p)) k++; 
//Если длина фрагмента из
// букв "ABBA" равна длине слова, то увеличиваем счетчик
    p=strtok(NULL,","); //выделяем следующее слово
  }
  printf("\nТаких слов %d \n",k);
}

Думаю разберетесь.

[Terran]

На Делфи:

Procedure TForm1.Button1Click(Sender: TObject);
Var
I,T,R: Integer;
S: String;
Begin
T:=0;
S:=Edit1.Text;
For I:=0 To Length(S) Do
Begin
R:=Pos('АВВА',S);
If R <> 0 Then
Begin
Delete(S,1,R+2);
T:=T+1;
End;
End;
Edit2.Text:=IntToStr(T);
End;

На Паскале почти так же будет.