Работа со строками - преобразование, ... удаляем нечётные символы Опции

[NEFFboy]

Кто поможет решить задачу на Delphi, буду очень благодарен:
Дана строка. Преобразовать ее, удалив каждый нечетный символ * и повторив каждый символ, предшествующий *.

З.Ы. Строки можно брать и .txt файла или вводить самому, через Write и Read.

[Адель]

удаление:

  readln(s);
  k:=0;
  i:=0;
  while i<>Length(s) do
  begin
    if s[i]='*' then
    begin
      inc(k);
      if k mod 2<>0 then
      begin
        delete(s,i,1);
        dec(i);
      end;
    end;
    inc(i);
  end;
  writeln(s);

вставлять Insert'ом, вот только не очень понятно: вставлять после или до удаления
зы: не надо здесь про делфи, и через Write не вводится)

Сообщение отредактировано: Адель - 11.05.2007 8:59