Преобразовать строку символов, удалив каждый символ "" и повторив каждый символ, отличный от ""

@burnout · Регистрация: 15.06.2010

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

подскажите как решить

@Puporev · 19.06.2010, 20:14

Pascal

1
2
3

for i:=length(s) downto 1 do
if s[i]='*' then delete(s,i,1);
else insert(s[i],s,i);

@burnout 0 / 0 / 0 Регистрация: 15.06.2010 Сообщений: 5
		1
	Преобразовать строку символов, удалив каждый символ "" и повторив каждый символ, отличный от "" 19.06.2010, 18:03. Показов 1821. Ответов 1 Метки нет (Все метки) Дана строка символов. Преобразовать строку, удалив каждый символ * и повторив каждый символ, отличный от *. подскажите как решить 0

	19.06.2010, 20:14

Преобразовать строку символов, удалив каждый символ "*" и повторив каждый символ, отличный от "*"