Дана строка.Подсчитать количество слов ,начинающихся с буквы Б

Question

Дана строка.Подсчитать количество слов ,начинающихся с буквы Б

Comments

написать программу!!Пожалуйста скорее!!

---

program zadacha;

---

var S: string:

Answer 1

Program zadacha;
var
s: string;
i, k, l: integer;
begin
k:=0;
read(s);
l:=length(s);
for i:=1 to l do
begin
if s[i]='б' then
inc(k);
end;
write(k);
end.

Comments

спасибо большое)

---

удачи) Обращайся, если что. И если вдруг не работает, тоже говори

---

Мне в школу задали. У Меня дома даже паскаль не установлен)

---

Ну,я ндеюсь,что вы сделали правильно))

---

Ну у меня все работает. Я проверял. Обращайтесь, если что)

---

Спасибо!Добавлю вас в друзья щас.если что,напишу,хорошо?

---

Конечно) Перейдите по ссылке: http://195.208.237.170/WDE/?file=AlgStudents/Arrays/14_Bubblesort.pas Там в поле будет уже текст программы. Удалите его. Скопируйте мой и вставьте. Прям там. Поле. Нажмите ВЫПОЛНИТЬ. Ну а дальше разберетесь)

---

это компилятор паскаля) не нужно ничего скачивать, прям там можно программировать