Использовать Водолей
алг переливайка
нач
наполни A
перелей из A в B
перелей из B в C
перелей из C в A
перелей из B в C
перелей из A в B
перелей из B в C
перелей из C в A
<span>
кон</span>
Скажите пожалуйста, какой вам нужен паскаль. Сразу же - я пишу на delphi
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)
<span>end.</span>