Определить число слов во введенном предложении ** языке Basic.

Question

Определить число слов во введенном предложении на языке Basic.

Answer 1

CLS

N = 1

INPUT "tekst"; S$

L = LEN(S$)

FOR i = 1 TO L

B$ = MID$(S$, i, 1)

IF ASC(B$) = 32 THEN

N = N + 1

END IF

NEXT i

PRINT "N="; N