Hugigda 27 ноября 2019 в 07:03

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

Var
    i: integer;

begin
    for i := 1 to 26 do
        write(chr(i + 64), -, i, );
end.
Для комментирования необходимо зарегистрироваться на сайте