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