Найти первый символ текста, встречающийся 2 раза подряд - Pascal

Узнай цену своей работы

Формулировка задачи:

Создать программу, которая узнаваливает, какой символ первый в данном тексте нашел 2 раз подряд. например, текст: red apple ответ: p

Решение задачи: «Найти первый символ текста, встречающийся 2 раза подряд»

textual
Листинг программы
var s:string;
    i:integer;
begin
writeln('Введите строку в которой есть одинаковые символы подряд');
readln(s);
i:=2;
while(i<=length(s))and(s[i]<>s[i-1]) do inc(i);
if i>length(s) then write('Нет одинаковых символов подряд')
else write('Первый символ который встречается 2 раза подряд  ',s[i])
end.

Объяснение кода листинга программы

  1. Объявлены две переменные: s (строка) и i (целое число).
  2. Пользователю предлагается ввести строку, в которой есть одинаковые символы подряд.
  3. Затем введенная строка сохраняется в переменной s.
  4. Переменная i инициализируется значением 2.
  5. В цикле while проверяется, есть ли в строке s символы, которые встречаются 2 раза подряд. Если нет, то выводится сообщение Нет одинаковых символов подряд.
  6. Если такие символы есть, то в переменной i хранится индекс первого из них.
  7. Если i меньше длины строки, то цикл продолжается.
  8. Если i равно длине строки, то выводится сообщение Первый символ, который встречается 2 раза подряд и символ, находящийся по индексу i в строке s.

Оцени полезность:

8   голосов , оценка 3.75 из 5
Похожие ответы