Question

Строки (цепочки символов латинских букв) создаются по следующему правилу.
Первая строка состоит из одного символа – латинской буквы «А». Каждая из последующих цепочек создаётся такими действиями: в очередную строку сначала записывается буква, чей порядковый номер в алфавите соответствует номеру строки, к ней слева дважды подряд приписывается предыдущая строка.
Вот первые 4 строки, созданные по этому правилу:
(1) A
(2) AAB
(3) AABAABC
(4) AABAABCAABAABCD

Запишите шесть символов подряд, стоящих в восьмой строке с 10-го по 105-е место (считая слева направо).

Answer 1

var
  s: string;
  i,start,j: integer;

begin
  start:= ord('A');
  s:= 'A';
  for i:= 2 to 8 do begin
    s:= s+s+char(start+1);
    inc(start);
    if i=8 then for j:= 10 to 15 do write(s[j])
  end
end.