Известно, что в электронных таблицах Excel столбцы обозначаются латинскими заглавными буквами и их комбинациями A, B,

Составим программу на языке программирования PureBasicDIM a AS STRING, i, n AS SINGLEa = \"XFD\"FOR i = 1 TO LEN(a)n = (ASC(MID$(a, i, 1)) - 64) + n * 26NEXT iPRINT nПервый вариант Pascalvar s := \'\' + \'CAB\';beginvar n := 0;var x := 1;for var i := s.Length downto 1 dobeginn := n + x * (Ord(s[i]) - Ord(\'A\') + 1); x *= 26;end;writeln(n);end.Второй вариант Pascalvar s := \'\' + \'BB\';beginwriteln(s.Reverse().Select(ch -> Ord(ch) - Ord(\'A\') + 1).Aggregate(0, (a, b) -> 26*a + b));end.