1 2 3 4 5 | INPUT "vvedite text"; a$FOR i = 1 TO LEN(a$) IF MID$(a$, i, 1) = " " OR MID$(a$, i, 1) = "." THEN d = i - k - 1: k = i IF d = 3 AND k = i THEN PRINT MID$(a$, i - d, d)NEXT |
Тестирование выполнено в программе QB64 ( Скачать )