1 2 3 4 5 6 7 8 9 | INPUT a$FOR i = 1 TO LEN(a$) IF MID$(a$, i, 1) = LCASE$(MID$(a$, i, 1)) THEN MID$(a$, i, 1) = UCASE$(MID$(a$, i, 1)) ELSE MID$(a$, i, 1) = LCASE$(MID$(a$, i, 1)) END IFNEXTPRINT a$ |
Тестирование выполнено в программе QB64 ( Скачать )