Дано слово, необходимо удвоить в нём буквы- QBasic(Бейсик)

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

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

Leave a Comment