1 2 3 4 5 6 7 8 9 | INPUT "vvedite ishodnuyu stroku ", a$INPUT " vvedite sochetanie x ", x$INPUT " vvedite sochetanie y ", y$PRINT "ishodnaya stroka"PRINT a$FOR i = LEN(a$) - LEN(x$) + 1 TO 1 STEP -1 IF MID$(a$, i, LEN(x$)) = x$ THEN a$ = MID$(a$, 1, i - 1 + LEN(x$)) + y$ + MID$(a$, i + LEN(x$)): f = 1NEXTIF f = 0 THEN PRINT "sochetaniya x v stroke net" ELSE PRINT "novaya stroka": PRINT a$ |
Тестирование выполнено в программе QB64 ( Скачать )