1 2 3 4 5 6 7 | 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 ( Скачать )
1 2 3 4 5 6 7 | 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 ( Скачать )