1 2 3 4 5 | LINE INPUT "vvedite text: ", a$FOR i = 1 TO LEN(a$) IF MID$(a$, i, 1) = " " THEN k = k + 1NEXTPRINT k / LEN(a$) * 100; "%" |
Тестирование выполнено в программе QB64 ( Скачать )
1 2 3 4 5 | LINE INPUT "vvedite text: ", a$FOR i = 1 TO LEN(a$) IF MID$(a$, i, 1) = " " THEN k = k + 1NEXTPRINT k / LEN(a$) * 100; "%" |
Тестирование выполнено в программе QB64 ( Скачать )