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

@artik · Регистрация: 08.02.2010

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

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

ПОМОГИТЕ ПЛЗ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

@Puporev · 10.02.2010, 20:37

Pascal

k:=0;i:=2;
while  i<=length(s) do
if(s[i]<>' ')and(s[i]=s[i-1])then 
 begin
   k:=k+2;
   i:=i+2;
 end
else i:=i+1;

@Nereus · 10.02.2010, 20:55

Вроде нормально работает...

Pascal

uses crt;
var
  s:string;
  i,c:integer;
begin
  clrscr;
  readln(s);
  for i:=1 to length(s) do
  if s[i]=s[i+1] then c:=c+1;
  writeln(c);
  readln;
end.

@Puporev · 10.02.2010, 21:20

Сообщение от Nereus

if s[i]=s[i+1] then c:=c+1;

А если 2 пробела рядом? Это же не буквы.

Добавлено через 1 минуту
Потом, если например "ооо" , то это же не 2 пары сдвоенных букв.

@artik 10 / 10 / 3 Регистрация: 08.02.2010 Сообщений: 62
		1
	Дана строка состоящая из слов, разделенных пробелами. Посчитать количество сдвоенных букв во ведённом тексте. 10.02.2010, 20:21. Показов 1384. Ответов 3 Метки нет (Все метки) Дана строка состоящая из слов, разделенных пробелами. Посчитать количество сдвоенных букв во ведённом тексте. ПОМОГИТЕ ПЛЗ!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	10.02.2010, 21:20	4
	Сообщение от Nereus if s[i]=s[i+1] then c:=c+1; А если 2 пробела рядом? Это же не буквы. Добавлено через 1 минуту Потом, если например "ооо" , то это же не 2 пары сдвоенных букв. 0

Опции темы