Сосчитать количество букв А в слове — Basic(Бейсик)

INPUT "vvedite slovo ",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 n

Leave a Comment