Программа должна удалять все символы строки, совпадающие с первым

@винт · Регистрация: 29.03.2012

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

Написал, но не работает... Программа должна удалять все символы совпадающие с первым.

Pascal

var 
st:string;
k:integer;
begin
writeln('введите строку');
readln(st);
while pos(st[1],st) <> 0 do
  begin
    k:=pos(st[1],st);
    delete(st,k,length(st[1]));
    end;
 writeln('после=',st);
 end.

length(st[1]) можно заменить на 1 так как по условию удаляется один символ.

@Фаер · 31.10.2012, 19:01

Pascal

var
st:string;
k:integer;
p:char;
begin
writeln('введите строку');
readln(st);
p:=st[1];{заранее выносим первый символ. В Вашей проге первый символ меняется с каждой итерацией}
while not(pos(p,st)=0) do
  begin
    k:=pos(p,st);
    delete(st,k,1);{третий аргумент - 1 - кол-во удаляемых символов считая от k}
    end;
 writeln(st);
 end.

	31.10.2012, 19:01