1 2 3 4 5 6 7 8 9 | CLSINPUT "vvedite text"; a$INPUT "vvedite slovo"; b$FOR i = LEN(a$) TO 1 STEP -1 IF MID$(a$, i, 1) = " " THEN k = i ' ищем первый пробелNEXT' если есть пробел вставляем слово после первого, если нет пробелов склеиваем словаIF k > 0 THEN c$ = MID$(a$, 1, k) + b$ + MID$(a$, k, LEN(a$)) ELSE c$ = a$ + " " + b$PRINT c$ |
Тестирование выполнено в программе QB64 ( Скачать )