Сформулировать по исходной строке a$ новую строку b$ по правилу: в каждом слове перенести последнюю букву в начало слова — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
INPUT a$
FOR i = 1 TO LEN(a$)
        sp = i
        DO WHILE MID$(a$, sp, 1) <> " " AND sp <> LEN(a$) + 1
                sp = sp + 1
        LOOP
        b$ = b$ + " " + MID$(a$, sp - 1, 1) + MID$(a$, i, sp - i - 1)
        i = sp
NEXT i
PRINT b$

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