задача 9 урок 17

задача 9 урок 17

Пользователь вводит исходную строку s.
Ваша программа должна вернуть другую строку, в которой все смежные (соседние) повторяющиеся символы должны быть "удалены" (т.е. повторов в новой строке быть не должно), например:
для строки:

5533g

вернуть:

53g

для строки:

b5ghh55788oooggtttttt

вернуть:

b5gh578ogt

Решение

program task_9_lesson_17;
var
  s, s1, s2: string;
  i: integer;
begin
  s := 'b5ghh55788oooggtttttt';
  s1 := s;    // перезапись строки
  s2 := '';   // результат
  s2 := s2 + s[1];
  for i := 2 to length(s)  do
    if (s1[i-1] <> s[i]) then
      s2 := s2 + s[i];
  writeln(s);
  write('Poluchim -> ');
  write(s2);
  readln
end. 

консоль

b5ghh55788oooggtttttt
Poluchim -> b5gh578ogt