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

INPUT a$
FOR i = 1 TO LEN(a$)
    IF MID$(a$, i, 1) = " " THEN n = n + 1
NEXT i
PRINT n + 1

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

Leave a Comment