input"vvedite text iz treh slov ",a$
input"vvedite slovo dlya vstavki ",b$
for i=len(a$) to 1 step-1
if mid$(a$,i,1)=" "then k=i
next
a$=left$(a$,k)+b$+" "+right$(a$,len(a$)-k)
print a$
Тестирование выполнено в программе QB64 ( Скачать )
input"vvedite text iz treh slov ",a$
input"vvedite slovo dlya vstavki ",b$
for i=len(a$) to 1 step-1
if mid$(a$,i,1)=" "then k=i
next
a$=left$(a$,k)+b$+" "+right$(a$,len(a$)-k)
print a$
Тестирование выполнено в программе QB64 ( Скачать )