Дано слово «Логарифм» вывести его на экран в обратном порядке — QBasic(Бейсик)

CLS
INPUT "vvedite a$"; a$
n = LEN(a$)
FOR i = 1 TO LEN(a$)
    s$ = s$ + MID$(a$, n, 1)
    n = n - 1
NEXT
PRINT s$
CLS
INPUT "vvedite a$"; a$
n = LEN(a$)

FOR i = 1 TO LEN(a$)
    s$ = MID$(a$, i, 1) + s$
NEXT

PRINT s$

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment