Все вхождения данного символа необходимо переместить на первую позицию

@Физик189 · Регистрация: 03.10.2011

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

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

@I2um1 · 03.10.2011, 19:36

Так?

Pascal

var s, a : string; i, k : integer;
begin
   write('Входная строка: '); readln(s);
   write('Символ: '); readln(a);
   while pos(a, s) > 0 do begin
      delete(s, pos(a, s), 1);
      inc(k)
   end;
   for i := 1 to k do
      insert(a, s, 1);
   writeln(s)
end.

@Физик189 · 03.10.2011, 22:08 **[ТС]**

ОГРОМНОЕ спасибо!!все работает!

@Puporev · 04.10.2011, 14:07

Сообщение от Физик189

ОГРОМНОЕ спасибо!!все работает!

Только списком L здесь и не пахнет.

@Физик189 0 / 0 / 0 Регистрация: 03.10.2011 Сообщений: 14
		1
	Все вхождения данного символа необходимо переместить на первую позицию 03.10.2011, 19:07. Показов 1267. Ответов 3 Метки нет (Все метки) пожалуйста, помогите написать текст програмы чтобы все вхождения данного символа необходимо переместить на первую позицию.например- символ а .строка врарпава порлучилось аааррпв 0

@Физик189 0 / 0 / 0 Регистрация: 03.10.2011 Сообщений: 14
	03.10.2011, 22:08 [ТС]	3
	ОГРОМНОЕ спасибо!!все работает! 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	04.10.2011, 14:07	4
	Сообщение от Физик189 ОГРОМНОЕ спасибо!!все работает! Только списком L здесь и не пахнет. 0

Все вхождения данного символа необходимо переместить на первую позицию

Решение