INPUT "Введите предложение: ", text$
words$() = SPLIT(text$, " ")
newText$ = ""
FOR i = LBOUND(words$) TO UBOUND(words$)
newText$ = newText$ + "?" + words$(i) + " "
NEXT i
PRINT "Исходный текст: "; text$
PRINT "Преобразованный текст: "; newText$
PRINT "Длина полученного предложения: "; LEN(newText$)
Тестирование выполнено в программе QB64 ( Скачать )