Удалить из заданной символьной строки подряд идущие одинаковые символы

27.12.2012, 18:13. **Показов** 2856. **Ответов** 1

Студворк — интернет-сервис помощи студентам

Задание: Написать программу, которая удаляет из заданной символьной строки подряд идущие одинаковые символы.

Pascal

var
t,s:string;i:integer ;
begin
readln(s);
t:='';
 for i:=1 to length(s)-1 do
  begin
   if s[i]=s[i+1] then
     begin
     t:=t+s[i];
     t:=t+s[i+1];
     end
  end;
 for i:=1 to length(t) do
  while pos(t[i],s)>0 do
   delete(s,pos(t[i],s),1);
writeln(s);
end.

она мне все символы удаляет из строки, а должна только, которые рядом стоят.

@Puporev · 27.12.2012, 18:34

Pascal

uses crt;
var s:string;
    c:char;
    i:integer;
begin
readln(s);
i:=1;
while i<length(s) do
if s[i+1]=s[i] then
 begin
  c:=s[i];
  while(i<=length(s))and(s[i]=c)do delete(s,i,1);
 end
else i:=i+1;
write(s)
end.

Опции темы