Мистер Фокс придумывает себе пароль. Он хочет, чтобы он состоял из заглавных латинских...

Question

Мистер Фокс придумывает себе пароль. Он хочет, чтобы он состоял из заглавных латинских букв и был достаточно случайным, поэтому для его создания придумал такой алгоритм. Сначала он пишет на доске первую букву латинского алфавита: A, затем стирает ее и пишет такое “слово”: BAA (сначала вторая буква латинского алфавита, потом два раза приписывает то, что стер с доски перед этим). Затем он снова все стирает. На третьем шаге мистер Фокс пишет третью букву алфавита, а потом дважды повторяет то, что стер перед этим (получилась строка CBAABAA) и так далее. Написав девятое слово, он останавливается и генерирует пароль: пароль состоит из записанных подряд букв девятой строки, стоящих на первом, 510, 5, 258 и 68 местах. Какой пароль получился у мистера Фокса? Комментарий. Если бы в девятой строке на первом, 510, 5, 258 и 68 местах стояли бы буквы A, B, C, D и E, то в качестве ответа нужно было бы вывести строку ABCDE.

Answer 1

Var
    s: string;
    c, i: integer;

begin
    c := ord('A') - 1;
    s := '';
    for i := 1 to 9 do
    begin
        s := Chr(c + i) + s + s;  
        writeln(i, ' - ', s);
    end;
    writeln('Password - ', s[1], s[510], s[5], s[258], s[68]);
end.

Вывод
1 - A
2 - BAA
3 - CBAABAA
4 - DCBAABAACBAABAA
5 - EDCBAABAACBAABAADCBAABAACBAABAA
6 - FEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAA
7 - GFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAA
8 - HGFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAGFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAA
9 - IHGFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAGFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAHGFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAGFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAA
Password - IAEGE