Преобразование символов в строке

[ZeroQl]

Дана строка. Преобразовать ее, удалив каждый символ * и повторить каждый символ, отличный от *.
Помогите плиз, а то я что-то в ехать не могу

[puporev]

Идешь по строке с конца.
for i:= length(s) to 1 do
и, если символ не * вставляешь такой же, если звздочка, удаляешь.
if s[i]<>'*' then insert(s[i],s,i)
else if s[i]='*' then delete(s,i,1);
Про смысл этих двух процедур прочитай в Хэлпе Паскаля или в учебнике.

[maladoy]

var s,s1:string;k:char;i:integer;
begin
readln(s);
readln(k);
s1:='';
for i:=1 to length(s) do
if s[i]<>k then s1:=s1+s[i]+s[i];
writeln(s);
writeln(s1);
readln;end.

[puporev]

Дана строка. Преобразовать ее

Про новую строку ни слова.

[maladoy]

Сообщение от puporev

Про новую строку ни слова.

но и про запрет ее использования тоже

[alex_fcsm]

Сообщение от puporev

for i:= length(s) to 1 do

может быть

for i:= length(s) downto 1 do

P.S. Все-таки вариант puporev мне кажется правильнее

[puporev]

Именно это я имел ввиду. Извините.

[начинающий кодер]

Все-таки вариант puporev мне кажется правильнее

я полностью с вами согласен!

[ZeroQl]

Спасибо большое :D Надо же на такой ерунде сломался

[Plague]

функцию pos знаете?

while pos('*',s)<>0 do
 delete(s,pos('*',s),1);

неужели решение в 2 строчки)