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

латинскими заглавными буквами и их комбинациями A, B, …, Z, AA, AB, …,

AZ, BA, BB, …, BZ, …, ZZ, AAA, AAB, …, XVD. Каждому столбцу

соответствует номер 1, 2, …, 26, 27, 28, …, 52, 53, 54, …, 78, …, 702, 703, 704,

…, 16384 соответственно. Необходимо составить программу, которая по

имени столбца определят его номер.

от души так понятнее

var  s:string;  n,i,cn,k:integer;begin  Write('Введите имя столбца: '); Read(s);  n:=Length(s);  cn:=0;  k:=1;  for i:=n downto 1 do begin    s[i]:=UpCase(s[i]);    cn:=cn+k*(Ord(s[i])-64);    k:=k*26    end;  Writeln('Номер колонки равен ',cn)end.ПримерВведите имя столбца: XFDНомер колонки равен 16384