Сколько раз встречается буква "Б" в последнем слове заданного текста (Варя попросила принести ей учебник) СОСТАВИТЬ АЛГОРИТМ. Претензий ко мне не надо. Я изложила все в точности, как сказал учитель! ( задания для 9-11 классов)
Сколько раз встречается буква "Б" в последнем слове заданного текста (Варя попросила принести ей учебник) СОСТАВИТЬ АЛГОРИТМ. Претензий ко мне не надо. Я изложила все в точности, как сказал учитель! ( задания для 9-11 классов)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы