Подсчитать количество слов в строке

informatic92

Дана строка. Подсчитать количество слов, заканчивающихся заданной буквой. Помогите, пожалуйста, составить программу!
1 ответ

informatic92

Будем считать, что слова разделены пробелом
input "vvedite stroku ",a$
a$=rtrim$(a$)+" "
input"vvedite bukvu ",b$
for i=1 to len(a$)-1
if mid$(a$,i,2)=b$+" " then k=k+1
next
print k