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