Вставить новое слово в текст из трёх слов после первого слова- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
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 ( Скачать )

Похожие записи/страницы:

Leave a Comment