В заданном предложении перед каждым словом поставить символ ? Напечатать исходный и преобразованный тексты, а также длину получаемого предложения- QBasic(Бейсик)

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 ( Скачать )

Leave a Comment