1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.ButtonClick(Sender: TObject);
var i,anz:integer; k,k2:string;
begin
    k:='A';
    repeat
      k2:='';
      for I:=1 to length(k) do
        case k[i] of
          'A' : k2:=k2+'Bc';
          'a' : k2:=k2+'bC';
          'B' : k2:=k2+'Ca';
          'b' : k2:=k2+'cA';
          'C' : k2:=k2+'Ab';
          'c' : k2:=k2+'aBa';
        end;
      k:=k2;
      anz:=0;
      for i:=1 to length(k) do
        if k[i] in ['B','b'] then inc(anz);
      listbox1.Items.add(inttostr(anz)+' | '+inttostr(3*anz)+' | '+inttostr(length(k)));
    until length(k)>1000;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

#include <stdio.h>
#include <stdlib.h>
#include <stdint.h>

#define addr(v) r[len++] = v
#define chlen(l) if(l > mlen) r = realloc(r, mlen += 10)
#define repl2(a,b,c)   case a: chlen(len+2); addr(b); addr(c); break;
#define repl3(a,b,c,d) case a: chlen(len+3); addr(b); addr(c); addr(d); break;

uint16_t len = 1;

char* fmt(char* s) {
  uint16_t i = -1, mlen = len + len;
  char* r = malloc(mlen);
  len = 0;
  
  while(s[++i])
    switch(s[i]) {
      repl2('A', 'B', 'c')
      repl2('a', 'b', 'C')
      repl2('B', 'C', 'a')
      repl2('b', 'c', 'A')
      repl2('C', 'A', 'b')
      repl3('c', 'a', 'B', 'a')
    }
  r[len] = 0;
  free(s);
  return r;
}

int main() {
  char* s = malloc(len + 1);
  s[0] = 'A';
  while(len < 1000) s = fmt(s);
  uint16_t i = -1, n = 0;
  while(s[++i]) if(s[i] == 'B' || s[i] == 'b') n++;
  
  free(s);
  printf("%i\n",n);
  return 0;
}