В заданном предложении исключить все слова короче 4-х букв . Напечатать полученное предложение и число исключенных слов — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
INPUT "Введите предложение: ", text$
words$() = SPLIT(text$, " ")
newText$ = ""
excludedCount = 0
 
FOR i = LBOUND(words$) TO UBOUND(words$)
    IF LEN(words$(i)) >= 4 THEN
        newText$ = newText$ + words$(i) + " "
    ELSE
        excludedCount = excludedCount + 1
    END IF
NEXT i
 
PRINT "Полученное предложение: "; newText$
PRINT "Количество исключенных слов: "; excludedCount

Тестирование выполнено в программе QB64 ( Скачать )

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

Leave a Comment