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 |
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 |