Работа со строками

@Danil-za · Регистрация: 16.05.2009

Студворк — интернет-сервис помощи студентам

Дана строка, состоящая из слов, разделённых пробелами. Посчитать количество сдвоенных букв во ведённом тексте.

Добавлено через 26 минут 22 секунды
Затруднение вызывает кол-во сдвоенных букв.

@Puporev · 17.05.2009, 11:31

Затруднение вызывает кол-во сдвоенных букв.

if (s[i]=s[i-1])and(s[i]<>s[i+1]) then k:=k+1;

Добавлено через 5 минут 56 секунд

Pascal

Кстати слова можно и не выделять, просто в начале написать константу из букв
const bk=['A'..'Z','a'..'z','А'..'п','р'..'ё'];
Потом в тексте проги
k:=0;
for i:=1 to length(s) do
if(s[i] in bk)and(s[i]=s[i-1])and(s[i] <> s[i+1]) then k:=k+1;
Если имеется ввиду считать обе буквы, то k:=k*2;

@Danil-za · 17.05.2009, 11:48 **[ТС]**

Puporev, за это спасибо, что даже пример с русскими буквами написал.

@Danil-za 3 / 3 / 0 Регистрация: 16.05.2009 Сообщений: 69
		1
	Работа со строками 17.05.2009, 11:22. Показов 1290. Ответов 2 Метки нет (Все метки) Дана строка, состоящая из слов, разделённых пробелами. Посчитать количество сдвоенных букв во ведённом тексте. Добавлено через 26 минут 22 секунды Затруднение вызывает кол-во сдвоенных букв. 0

@Danil-za 3 / 3 / 0 Регистрация: 16.05.2009 Сообщений: 69
	17.05.2009, 11:48 [ТС]	3
	Puporev, за это спасибо, что даже пример с русскими буквами написал. 0

Опции темы

Работа со строками

Решение