Найти количество буква «а» в заданном тексте- QBasic(Бейсик)

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

Leave a Comment