Слово, введенном с клавиатуры распечатать побуквенно в столбик: а)в естественной последовательности, б)в обратной последовательности — QBasic(Бейсик)

word1$ = ""
INPUT "Type a word"; word1$
FOR i = 1 TO LEN(word1$)
    PRINT MID$(word1$, i, 1); "    "; MID$(word1$, LEN(word1$)+1-i, 1)
NEXT

Leave a Comment