Паскаль: Дано предложение определить, сколько в нем одинаковых соседних букв (пробелы учитываем)

[Nataaaaaaaaaaaaaaa]

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

var
  s:string;
  i,j:integer;
begin
  
  writeln('ВВедите предложение');
  readln(s);
  j:=0;
  for i:=1 to length(s) do
  if s[i]=s[i+1] then inc(j);// увеличиваем значение j на 1
  if j=0 then
  writeln ('нет одинаковых соседних букв')
  else
  writeln('количество соседних букв ',j);
end.

[Вадим Мошев]

for i:=1 to length(s) do

Вам следует считать не до length(s), а до length(s)-1, иначе у вас программа как минимум не будет правильно считать, либо же вообще аварийно завершится.

Потом, что значит "Учитывала пробелы"? Пробел - это не буква. Или вы хотите, чтобы программа считала количество двух подряд идущих символов (не только буквы, но и цифры, а также знаки препинания, пробелы и т.д.)?

[Smitt&Wesson]

Попробуйте так:

if s[i] = s[i+1] or s[i] = ' ' and s[i+1] = ' ' then inc(j);// увеличиваем значение j на 1

[Вадим Мошев]

Только операнды логических выражений надо заключить в скобки.

[Nataaaaaaaaaaaaaaa]

попробовала , не работает

мне нужно , чтобы он как бы пропускал пробел и выводил количество букв, а не выводил , что таких букв тут нет , например я ввиду: Москва Анапа

[Serge_Bliznykov]

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

Дано предложение определить, сколько в нем одинаковых соседних букв (пробелы учитываем).

давайте начнём с того, что Вы
1) расскажите, что собственно требуется сделать (каким боком тут пробелы вообще участвуют/влияют)

2) приведёте пример предложений и сколько одинаковых букв должна насчитать программа.
Ну, или возьмём предложение:
Ввод данных в прообраз заданной программы огорчил змеееда.
сколько в нём одинаковых соседних букв (ответ обосновать указанием одинаковых букв)?

тогда и поговорим о программе.
Программа не сможет выполнить задание, которое не понимает сам программист!

[Вадим Мошев]

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

попробовала , не работает

мне нужно , чтобы он как бы пропускал пробел и выводил количество букв, а не выводил , что таких букв тут нет , например я ввиду: Москва Анапа

Тогда самым простым, пожалуй, будет удаление пробелов из строки:

Вставьте этот код после того, как запрашиваете строку:

for length(s) downto 1 do begin
	if s[i] = ' ' then begin
		delete(s, i, 1);
	end;
end;

[Nataaaaaaaaaaaaaaa]

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

давайте начнём с того, что Вы
1) расскажите, что собственно требуется сделать (каким боком тут пробелы вообще участвуют/влияют)

2) приведёте пример предложений и сколько одинаковых букв должна насчитать программа.
Ну, или возьмём предложение:
Ввод данных в прообраз заданной программы огорчил змеееда.
сколько в нём одинаковых соседних букв (ответ обосновать указанием одинаковых букв)?

тогда и поговорим о программе.
Программа не сможет выполнить задание, которое не понимает сам программист!

Смотрите! Мне нужно , чтобы программа "как бы" не обращала внимание на пробел и выводила одинаковое количество букв, например если мы напишем так : МоскваАнапа , то он выведет 1, а если я напишу так : Москва Анапа , то он выведет что нет соседних одинаковых букв

[Nataaaaaaaaaaaaaaa]

всем спасибо за помощь , у меня получилось

[Serge_Bliznykov]

Молодец. Поздравляю!