Var n:integer; c:char;
begin
write('n (от 1 до 26):');
readln(n);
for c:='z' downto chr(ord('z')-n+1) do write(c:2);
end.
Пример:
<span>n (от 1 до 26): 5
z y x w v</span>
АБВГДЕЁЖЗИЙКЛМНОПРСТ....
АСКАР
1 19 12 1 18
11912118
81121911
БУКВА А ПОД НОМЕРОМ 1
Пояснение.
Заменим буквы Д, Е, К, О, Р на 0, 1, 2, 3, 4 соответственно (для них порядок очевиден — по возрастанию).
Выпишем начало списка, заменив буквы на цифры:
1. 0000
2. 0001
3. 0002
4. 0003
5. 0004
6. 0010
...
Полученная
запись есть числа, записанные в пятеричной системе счисления в порядке
возрастания. Первое слово, начинающееся с «К» — 2000 переведём его в
десятичную: 3 · 52 + 0 · 52 + 0 · 51 + 0 · 50 = 250.
Не забудем о том, что есть слово номер 1, записывающееся как 0, а значит, 250 — число, соответствующее номеру 251.
Ответ: 251.