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

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

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

для строки:

    5533g

вернуть:

    53g

для строки:

    b5ghh55788oooggtttttt

вернуть:

   	
    b5gh578ogt

Решение:

program u17z09;
var s,c:string;
  i,j:integer;
begin
  writeln('Vvedite stroku:');
  readln(s);
  j:=1;
  c:=s[1];
  for i:=2 to length(s) do
  begin
    if (c[j]<>s[i]) then
    begin
      c:=c+s[i];
      j:=j+1;
    end;
  end;
  write(c);
  readln();
end.  

Консоль:

Vvedite stroku:
123321fdsakjjkddkll
12321fdsakjkdkl