Дано предложение, заканчивающееся точкой. Слова в нем разделены одним или несколькими пробелами. Найти количество слов, у которых первый и последний символы совпадают- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
CLS
INPUT "vvedite text"; a$
FOR i = 1 TO LEN(a$)
    IF MID$(a$, i, 1) = " " OR MID$(a$, i, 1) = "." THEN
        j = j - (MID$(a$, k + 1, 1) = MID$(a$, i - 1, 1) AND MID$(a$, k + 1, 1) <> " ")
        k = i
    END IF
NEXT
PRINT "j ="; j

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

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

Leave a Comment