Дан текст. Выяснить процентное содержание в тексте символа «#» — 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

Leave a Comment