Задача 9 Урок 17

Урок 17

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

var s1, s2: string;
    i: integer;

begin
  s1 := 'b5ghh55788oooggtttttt';
  s2 := s1[1];
  for i := 2 to length(s1) do
  begin
    if s1[i] <> s1[i-1] then
      s2 := s2 + s1[i];
  end;
  writeln(s2);
  readln();
end.

КОНСОЛЬ

b5gh578ogt
vedro-compota's picture

засчитано

_____________
матфак вгу и остальная классика =)