Определить количество одинаковых символов в последовательности - Pascal

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

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

2)Дана последовательность символов, в начале которой имеется некоторое количество одинаковых символов. Определить это количество.

Решение задачи: «Определить количество одинаковых символов в последовательности»

textual
Листинг программы
var s:string;
    i:byte;
begin
writeln('Введите строку в начале которой несколько одинаковых символов');
readln(s);
i:=1;
while(i<length(s))and(s[i]=s[i+1]) do
i:=i+1;
write('k=',i);
end.

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

  1. Создается переменная s типа string для хранения введенной пользователем строки.
  2. Создается переменная i типа byte, которая используется в цикле.
  3. Выводится сообщение Введите строку в начале которой несколько одинаковых символов.
  4. Введенная пользователем строка сохраняется в переменную s с помощью функции readln.
  5. Устанавливается начальное значение переменной i равное 1.
  6. Запускается цикл while, который продолжает выполняться пока переменная i меньше длины строки и символ в позиции i равен символу в позиции i+1.
  7. Каждую итерацию цикла значение переменной i увеличивается на 1.
  8. После завершения цикла выводится количество одинаковых символов в начале строки через write с сообщением k=.

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

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