Составьте программу позволяющую выяснить сколько раз встречается каждая буква алфавита во введенной строке s.

А$= "Текст"
Input a$
s=0
For I=1 to Len(a$)
IF Mid$(a$,I.1)= " =) " Then s=s+1
next I
Print s

Заместо смайла =) введешь свою букву