Посчитать количество слов начинающихся с буквы "б" из вводимого предложения

@nero36rus · Регистрация: 25.11.2010

1)посчитать количество слов начинающихся с буквы (б) из вводимого предложения.
Пример:боря любит играть на барабане
Ответ:2

2)удалить все гластные из вводимого предложения.
Пример: привеи вася
Ответ првт вс

@riv94 · 19.11.2011, 14:07

https://www.cyberforum.ru/pascal/thread365406.html
А поискать-то влом да?

@nero36rus · 19.11.2011, 14:12 **[ТС]**

Проблема в том, что она должна решаться без массива.

@КонецСвета · 19.11.2011, 15:33

Первая

Pascal

uses crt;
var s: string;
    i,k: integer;
begin
writeln ('Ведите строку');
readln (s);
s:=' '+s;
for i:=1 to length(s)-1 do
    if (s[i]=' ') and (s[i+1]='б') then inc(k);
writeln ('Количество слов, начинающихся на "б" =',k);
readln;
end.

@nero36rus 0 / 0 / 0 Регистрация: 25.11.2010 Сообщений: 11
		1
	Посчитать количество слов начинающихся с буквы "б" из вводимого предложения 19.11.2011, 13:37. Показов 2969. Ответов 3 Метки нет (Все метки) 1)посчитать количество слов начинающихся с буквы (б) из вводимого предложения. Пример:боря любит играть на барабане Ответ:2 2)удалить все гластные из вводимого предложения. Пример: привеи вася Ответ првт вс 0

@riv94 66 / 66 / 29 Регистрация: 13.02.2011 Сообщений: 392
	19.11.2011, 14:07	2
	https://www.cyberforum.ru/pascal/thread365406.html А поискать-то влом да? 0

@nero36rus 0 / 0 / 0 Регистрация: 25.11.2010 Сообщений: 11
	19.11.2011, 14:12 [ТС]	3
	Проблема в том, что она должна решаться без массива. 0

Опции темы

Посчитать количество слов начинающихся с буквы "б" из вводимого предложения

Решение