Удвоить символы в слове. Вывести результат в обратном порядке- QBasic(Бейсик)

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

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

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

Leave a Comment