Найти количество букв "а" в заданном тексте

code: #basic
LINE INPUT "введите текст"; t$
t = INSTR(1, t$, "a")
WHILE t <> 0
k = k + 1
t = INSTR(t + 1, t$, "a")
WEND
 
PRINT "в тексте"; k; "букв а"
END

автор: Grief

Поделиться:

Похожие статьи: