Строки, Pascal

[Anastasia12]

Строки, Pascal

Требуется переставить в начало строки все буквы в порядке их следования, затем цифры, и в конце – остальные символы. Рабочие строки не использовать.

Входные данные:
abh[b55](0123)jw((’)f)#dd&&87

Выходные данные:
abhbjwfdd55012387([]((’))#&&

 

[Vladimir_S]

Рабочие строки не использовать.

Вот тут, пожалуйста, подробнее. Что значит "рабочие строки" и чего нельзя использовать? А что можно?

 

[Anastasia12]

я не знаю( у меня со строка огромная беда((

 

[Vladimir_S]

я не знаю( у меня со строка огромная беда((

Ну не знаю, устроит ли такое решение, ломал-ломал голову, как совсем обойтись без второй строки, но так и не придумал. Вот, "чем богаты":

Const
 Let=['a'..'z']+['A'..'Z'];
 Dig=['0'..'9'];

Var
 S,S1:String;
 i,L:Byte;

Begin
 Writeln('Enter the String:');
 Readln(S);
 L:=Length(S);
 S1:='';
 for i:=1 to L do
  if (S[i] in Let) then S1:=S1+S[i];
 for i:=1 to L do
  if (S[i] in Dig) then S1:=S1+S[i];
 for i:=1 to L do
  if Not(S[i] in Let) and Not(S[i] in Dig) then S1:=S1+S[i];

 Writeln('Result:');
 Writeln(S1);

 Readln
End.

 

[Anastasia12]

спасибо большое