1 2 3 4 5 6 | INPUT "vvedite predlojenie ", a$FOR i = 1 TO LEN(a$) IF MID$(a$, i, 1) = " " THEN EXIT FOR n = n + 1NEXTPRINT "dlina 1 slova="; n |
Тестирование выполнено в программе QB64 ( Скачать )
1 2 3 4 5 6 | INPUT "vvedite predlojenie ", a$FOR i = 1 TO LEN(a$) IF MID$(a$, i, 1) = " " THEN EXIT FOR n = n + 1NEXTPRINT "dlina 1 slova="; n |
Тестирование выполнено в программе QB64 ( Скачать )