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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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$

Похожие записи/страницы: