Написать программу обращения заданного слова (Qbasic)

Question

Написать программу обращения заданного слова (Qbasic)

Answer 1

CLS
INPUT "Vvedite slovo:", c$
b$ = c$
l% = LEN(c$)
FOR i% = 1 TO l%
   MID$(b$, i%, 1) = MID$(c$, l% - i% + 1, 1)
NEXT i%
PRINT "Naoborot: " + b$
END

Тестовое решение:

Vvedite slovo:Hello
Naoborot: olleH

Чтобы продолжить, нажмите любую клавишу