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) = " " AND MID$(a$, i + 1, 1) <> " " THEN b$ = b$ + MID$(a$, i, 1)NEXTPRINT b$ |
Тестирование выполнено в программе QB64 ( Скачать )