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

а$= "Текст"Input a$s=0For I=1 to Len(a$)IF Mid$(a$,I.1)= " =) " Then s=s+1next IPrint sЗаместо смайла =) введешь свою букву