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 ( Скачать )
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 ( Скачать )