Question

Написать программу на Паскале :

Найти позицию букв в алфавите и букву по её номеру

Answer 1

===== PascalABC.NET =====

begin

 var s:='АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';

 var c := ReadlnChar('Какую букву ищем?');

 Println('Буква', c, 'в алфавите имеет номер', Pos(c, s));

 var i := ReadInteger('Какая по порядку буква Вам нужна?');

 Println('Это буква', s[i])

end.