Сколько раз встречается буковка "Б" в заключительном слове данного текста (Варя

Сколько раз встречается буковка "Б" в заключительном слове данного текста (Варя попросила принести ей учебник) СОСТАВИТЬ АЛГОРИТМ. Претензий ко мне не надобно. Я изложила все в точности, как сказал учитель! ( задания для 9-11 классов)

Задать свой вопрос
1 ответ
Var
  i,n:integer;
  s:string;
begin
writeln('Введите текст');
readln(s);
repeat
  n:=pos(' ',s);
  delete(s,1,n);
  until n=0;
for i:=1 to length(s) do
    if s[i]='б' then n:=n+1;
writeln('Число букв "б" в последнем слове: ',n)
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт