1 2 3 4 5 6 | 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 ( Скачать )
1 2 3 4 5 6 | 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 ( Скачать )