Из данной строки получить новую строку, удалив все звездочки (*) - Turbo Pascal

Формулировка задачи:

Из данной строки получить новую строку, удалив все звездочки (*).Строка должна получится без пробелов

var o,p:integer;
w,e,r:string;
begin
readln(w);      e:=w;
 for  o:=1 to length(w) do   begin
 if w[o]='*' then
for  p:=o to length(w) do
        w[p]:=w[p+1]

  end;
  write (w);
 
  readln
  end.

Пробовал ,не получается когда много * подрят

Решение задачи: «Из данной строки получить новую строку, удалив все звездочки (*)»

textual
                            Листинг программы 
                        

                            var
  s: string;
  i: byte;
 
begin
  ReadLn(s);
  for i := Length(s) downto 1 do
    if s[i] = '*' then
      Delete(s, i, 1);
  WriteLn(s);
  ReadLn
end.
                        

Оцени полезность:

15 голосов , оценка 4.133 из 5

Похожие ответы