Строковый тип

[idzaya2311]

Даны символы s1, s2, … Известно, что символ s1 отличен от восклицательного знака и что среди s2, s3,. .. есть по крайней мере один
восклицательный знак. Пусть s1, …, sn – символы данной последовательности, предшествующие первому восклицательному
знаку (n заранее неизвестно). Выяснить, имеется ли среди s1, …, sn пара соседствующих одинаковых символов.

в выводе выдает такое:

var
  S:string;
  i:integer;

begin
  SetconsoleCP(1251);
  SetconsoleOutputCP(1251);

 writeln('Введите строку символов');
 read(S);
 if S[1]='!' then
   S[1]:='0';

  for i:=1 to length(S) do
    begin
    if S[i]=S[i+1] then
   writeln(S[i],' ',' true ')
    else
      writeln(' false ');

    end;

readln;
readln;
end.

правильный ли у меня вообще код?

[Serge_Bliznykov]

нет. не правильный.
я бы рекомендовал такой код:

var
  ch, chPrev : char;
  isPovtor : boolean;

begin
  SetconsoleCP(1251);
  SetconsoleOutputCP(1251); 
  
   isPovtor := false;

   writeln;
   write('Введите строку символов (воскл.знак для окончания ввода: ');
   read(ch);
   chPrev := ch;
   while ch<>'!' do begin
     Read(ch);
     if ch=chPrev then isPovtor := true;
     chPrev := ch;
   end;

   if isPovtor then
     writeln(' в строке есть пара соседствующих одинаковых символов.')
    else
     writeln(' в строке нет пары соседствующих одинаковых символов.');

   Readln;
   Readln;
end.

[idzaya2311]

Спасибо за код))
но у меня вопросы, так как я же учусь этому и мне нужно знать что да как.

как программа видит одинаковые символы? и обязательно ли в конце ставить Восклицательный знак?

[Serge_Bliznykov]

как программа видит одинаковые символы?

программа ничего "не видит"! у неё и глаз то нет.
Программа осуществляет обработку информации (данных) по заложенному в неё алгоритму.
В том, коде, который я предложил Вам примерно такой алгоритм поиска одинаковых символов-соседей: символ вводится (сохраняется) в переменной ch (типа char = один символ). После проверки, равен ли введённый символ предыдущему символ
(это выполняет код if ch=chPrev then )
мы сохранем это символ как предудущий для следующего цикла обработки.

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

и обязательно ли в конце ставить Восклицательный знак?

да. Это нам задано в условии задачи:

Известно, что символ s1 отличен от восклицательного знака и что среди s2, s3,. .. есть по крайней мере один
восклицательный знак.

более того, мы должны проверить только

символы данной последовательности, предшествующие первому восклицательному
знаку

[idzaya2311]

Спасибо вам огромное
за такое объяснение, очень приятно ^^