1 2 3 4 5 6 | CLSINPUT "vvedite text"; a$FOR i = 1 TO LEN(a$) IF MID$(a$, i, 1) = "a" OR MID$(a$, i, 1) = "o" OR MID$(a$, i, 1) = "e" THEN MID$(a$, i, 1) = "@"NEXTPRINT a$ |
Тестирование выполнено в программе QB64 ( Скачать )