В исходную строку добавьте после каждого символа его номер по порядку в алфавите — QBasic(Бейсик)

CLS
abc$ = "abcdefghijklmnopqrstuvwxyz"
INPUT st$
FOR i = 1 TO LEN(st$)
        FOR j = 1 TO LEN(abc$)
                IF LCASE$(MID$(st$, i, 1)) = MID$(abc$, j, 1) THEN
                        temp$ = temp$ + (MID$(st$, i, 1)) + LTRIM$(STR$(j))
                END IF
        NEXT j
NEXT i
PRINT temp$
автор: ДваДва

Вариант 2:

code: #basic
INPUT a$
FOR i = 1 TO LEN(a$)
c$ = MID$(a$, i, 1)
IF c$ >= "a" AND c$ <= "z" THEN b$ = b$ + c$ + LTRIM$(STR$(ASC(c$) - ASC("a") + 1))
NEXT
PRINT b$