Программа составлена для английских букв а. Если нужны русские, замените ими английские буквы в кавычках.
INPUT "vvedite predlojenie ",a$
FOR i=1 TO LEN(a$)
IF MID$(a$,i,1)="a" OR MID$(a$,i,1)="A"THEN n=n+1
NEXT
PRINT "bukv a=";n
Программа составлена для английских букв а. Если нужны русские, замените ими английские буквы в кавычках.
INPUT "vvedite predlojenie ",a$
FOR i=1 TO LEN(a$)
IF MID$(a$,i,1)="a" OR MID$(a$,i,1)="A"THEN n=n+1
NEXT
PRINT "bukv a=";n