Последовательность букв Опции

[Tauka]

Последовательность состоит из латинских букв таким образом:
На первом этапе она пустая, на каждом следующем она удваивается и в конец добавляется следующая буква лат.алфавита (a, b, c, …).Задание: за заданным числом n, определить символ, который стоит на n-вом месте в последовательности, которую мы получили после 20 шагов.

[xds]

Пусть 1 <= n < 2^20 - 1, тогда
1) решение "в лоб":

Код

program LatSeq1;

var
 i, n: LongInt;

procedure Rec(s: Integer);
begin
 if s = 0 then Exit;
 Rec(s - 1);
 Rec(s - 1);
 if i = n then
   begin
     Writeln(Chr(s + Ord('a') - 1));
     Halt;
   end;
 Inc(i);
end;

begin
 Write('n>');
 Readln(n);
 i := 1;
 Rec(20);
end.

2) решение 1) после небольшой оптимизации:

Код

program LatSeq2;

var
 n, m: LongInt;
 s: Integer;

begin
 Write('n>');
 Readln(n);
 s := 20;
 while n <> LongInt(1) shl s - 1 do
   begin
     Dec(s);
     m := LongInt(1) shl s - 1;
     if n > m then Dec(n, m);
   end;
 Writeln(Chr(s + Ord('a') - 1));
end.