В тексте удалить все цифры и удвоить знаки "+" и "-".

@IIaBeJI · Регистрация: 25.09.2009

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

В заданном предложении удалить все цифры и удвоить знаки "+" и "-".

@Puporev · 25.09.2009, 20:33

Pascal

const
cf=['0'..'9'];
zn=['+','-'];
.............................
for i:=length(s) downto 1 do
 begin
   if s[i] in cf then delete(s,i,1);
   if s[i] in zn then insert(s[i],s,i);
 end;

@IIaBeJI 0 / 0 / 0 Регистрация: 25.09.2009 Сообщений: 4
		1
	В тексте удалить все цифры и удвоить знаки "+" и "-". 25.09.2009, 18:52. Показов 1785. Ответов 1 Метки нет (Все метки) В заданном предложении удалить все цифры и удвоить знаки "+" и "-". 0

	25.09.2009, 20:33

В тексте удалить все цифры и удвоить знаки "+" и "-".

Решение