zadach35.BAS

{* Задача35 *}

REM basic

' Найти количество слов в фразе


CLS
INPUT "vvedite frazu"; a$
k = 1
For i = 1 To LEN(a$)
    If Mid$(a$, i, 1) = " " Then k = k + 1
Next
PRINT k
End