Найти первый символ текста, встречающийся 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.
Объяснение кода листинга программы
- Объявлены две переменные: s (строка) и i (целое число).
- Пользователю предлагается ввести строку, в которой есть одинаковые символы подряд.
- Затем введенная строка сохраняется в переменной s.
- Переменная i инициализируется значением 2.
- В цикле while проверяется, есть ли в строке s символы, которые встречаются 2 раза подряд. Если нет, то выводится сообщение
Нет одинаковых символов подряд
. - Если такие символы есть, то в переменной i хранится индекс первого из них.
- Если i меньше длины строки, то цикл продолжается.
- Если i равно длине строки, то выводится сообщение
Первый символ, который встречается 2 раза подряд
и символ, находящийся по индексу i в строке s.