Дан текст. Выяснить процентное содержание в тексте символа «#»

Категория: Basic

2012-02-14 16:47:37

code: #basic

INPUT"vvedite text ",a$
FOR i=1 TO LEN(a$)
IF MID$(a$,i,1)="#" THEN k=k+1
NEXT
PRINT"otvet=";k/LEN(a$)*100

автор: кот Бегемот

Поделиться:

Sample Code