дана строка.Подсчитать количество слов ,начинающихся с буквы Б
Answers & Comments
kachanov1997
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.
kachanov1997
Ну у меня все работает. Я проверял. Обращайтесь, если что)
Юлия1915
Спасибо!Добавлю вас в друзья щас.если что,напишу,хорошо?
kachanov1997
Конечно) Перейдите по ссылке: http://195.208.237.170/WDE/?file=AlgStudents/Arrays/14_Bubblesort.pas Там в поле будет уже текст программы. Удалите его. Скопируйте мой и вставьте. Прям там. Поле. Нажмите ВЫПОЛНИТЬ. Ну а дальше разберетесь)
kachanov1997
это компилятор паскаля) не нужно ничего скачивать, прям там можно программировать
Answers & Comments
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.