Найти число групп букв (в группе только буквы), которые начинаются и оканчиваются одной и той же буквой

@Antonlos · Регистрация: 19.10.2016

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

Дана строка. Найти такое число групп букв(в группе только буквы), которые начинаются и оканчиваются одной и той же буквой, причём начальная группа заглавная, группы разделяются пробелами.

@vint-81 · 08.12.2016, 17:40

Pascal

const b = ['А'..'П', 'Р'..'Я', 'Ё','A'..'Z'];
var s:string;k:integer;
begin
 write('s = ');readln(s);k:=0;s:=s+' ';
 while pos(' ',s)<>0 do
  begin
   if (s[1]=s[pos(' ',s)-1])and(s[1] in b) then 
    begin inc(k);writeln(copy(s,1,pos(' ',s)-1)) end;//для проверки, иначе следующая строка
    //inc(k);
   delete(s,1,pos(' ',s))
  end;
 writeln('количество: ',k) 
end.

@Cyborg Drone · 09.12.2016, 06:03

Для прописных букв лучше

Pascal

1	const b = ['А'..'Я', 'Ё', 'A'..'Z'];

поскольку от А до Я они точно идут подряд. Все, кроме "Ё". Это для строчных букв не всегда так. Например, в CP866 не только "ё" отдельно, но ещё и между "п" и "р" располагаются символы псевдографики.

@Antonlos 0 / 0 / 0 Регистрация: 19.10.2016 Сообщений: 8
		1
	Найти число групп букв (в группе только буквы), которые начинаются и оканчиваются одной и той же буквой 08.12.2016, 17:06. Показов 1509. Ответов 2 Метки нет (Все метки) Дана строка. Найти такое число групп букв(в группе только буквы), которые начинаются и оканчиваются одной и той же буквой, причём начальная группа заглавная, группы разделяются пробелами. 0

	09.12.2016, 06:03

Найти число групп букв (в группе только буквы), которые начинаются и оканчиваются одной и той же буквой

Решение