Question

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

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.

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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