1 2 3 4 5 | INPUT "vvedite slovo ", a$ FOR i = 1 TO LEN(a$) IF MID$(a$, i, 1 ) = "a" THEN MID$(a$, i, 1 ) = "o" NEXT PRINT a$ |
Тестирование выполнено в программе QB64 ( Скачать )
1 2 3 4 5 | INPUT "vvedite slovo ", a$ FOR i = 1 TO LEN(a$) IF MID$(a$, i, 1 ) = "a" THEN MID$(a$, i, 1 ) = "o" NEXT PRINT a$ |
Тестирование выполнено в программе QB64 ( Скачать )