CLS
INPUT "Vvedite slovo:"; a$
FOR i = 1 TO LEN(a$)
IF MID$(a$, i, 1) = " " THEN MID$(a$, i, 1) = ";": t = t + 1
NEXT
PRINT a$
PRINT t
Тестирование выполнено в программе QB64 ( Скачать )
CLS
INPUT "Vvedite slovo:"; a$
FOR i = 1 TO LEN(a$)
IF MID$(a$, i, 1) = " " THEN MID$(a$, i, 1) = ";": t = t + 1
NEXT
PRINT a$
PRINT t
Тестирование выполнено в программе QB64 ( Скачать )