1 2 3 4 5 6 7 8 9 | CLS INPUT "vvedite text:"; a$ b1$ = "a": b2$ = "" DO i = i + 1 IF MID$(a$, i, LEN(b1$)) = b1$ THEN a$ = MID$(a$, 1 , i - 1 ) + b2$ + MID$(a$, i + LEN(b1$), LEN(a$) - i + 1 ): i = 0 : k = k + 1 LOOP UNTIL i = LEN(a$) PRINT a$ PRINT k |
Тестирование выполнено в программе QB64 ( Скачать )