Вывести через пробел номера букв

Где номера букв соответствуют их номерам в алфавите

А - 1, B - 2 и т. д.

Question

Феоза

12 июня, 01:50

+4

Ответы (1)

Знаете ответ?

Аксинья · Answer 1

Var

i: integer;

begin

for i : = 1 to 26 do

write (chr (i + 64), '-', i, ' ') ;

end.

Вывести через пробел номера буквГде номера букв соответствуют их номерам в алфавитеА - 1, B - 2 и т. д.