Все цифровые символы строки поставить в начало строки, переставив их в обратном порядке

@Лесечка32 · Регистрация: 23.10.2012

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

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

@baquaqa · 02.01.2013, 06:48

Здравствуйте.
вариант решения:

Pascal

program _string;
 
var
 inString   : string;
 
Procedure TransformString(var S:string);
{переставляет в начало все цифровые символы строки S}
var
 i          : byte;
begin
 for i:=1 to length(s) do 
  if s[i] in ['0'..'9'] then begin
                              insert(s[i],s,1);
                              delete(s,i+1,1);
                             end;
end;
 
BEGIN
 
{ input }
 write('string: ');readln(inString);
 
{process. & output}
 TransformString(instring);
 writeln(instring);
 
Readln();
END.

(компилировался в PascalABC.NET, FPC)

@Paster Fob · 02.01.2013, 10:11

мой вариант:

Pascal

var
  s,st:string;
  i:byte;
 
begin
  writeln('введите строку');
  readln(s);
  st:='';
  i:=1;
  repeat
    if s[i] in ['0'..'9'] then begin
      st:=st+s[i];
      delete(s,i,1);
    end
    else inc(i);
  until i>length(s);
  s:=st+s;
  writeln(s);
  readln
end.

@Лесечка32 5 / 1 / 0 Регистрация: 23.10.2012 Сообщений: 118
		1
	Все цифровые символы строки поставить в начало строки, переставив их в обратном порядке 01.01.2013, 23:03. Показов 1511. Ответов 2 Метки нет (Все метки) привести листинг программы, а также тестовые задания проверки правильности работоспособности программы Все цифровые символы строки поставить в начало строки, переставив их в обратном порядке. 0

	02.01.2013, 10:11

Все цифровые символы строки поставить в начало строки, переставив их в обратном порядке

Решение