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

disel
1
2
3
4
5
6
7
8
9
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