1 2 3 4 5 6 7 8 | CLSINPUT "vvedite a$"; a$n = LEN(a$)FOR i = 1 TO LEN(a$) s$ = s$ + MID$(a$, n, 1) n = n - 1NEXTPRINT s$ |
1 2 3 4 5 6 7 8 9 | CLSINPUT "vvedite a$"; a$n = LEN(a$)FOR i = 1 TO LEN(a$) s$ = MID$(a$, i, 1) + s$NEXTPRINT s$ |
Тестирование выполнено в программе QB64 ( Скачать )