Сортировка чисел чтобы все одинаковы символы были размещены подряд по возрастанию ('121323'=>'112233'). Пример на Delphi
var
k,x,n,n1:string;
t,i:integer;
b:boolean;
begin
write('vvedite stroku= ');
readln(n);
n1:=n;
b:=true;
for i:=0 to 9 do begin
str(i,k);
t:=pos(k,n1);
while t<>0 do begin
write(i);
delete(n1,t,1);
t:=pos(k,n1);
end;
end;
readln;
end.
k,x,n,n1:string;
t,i:integer;
b:boolean;
begin
write('vvedite stroku= ');
readln(n);
n1:=n;
b:=true;
for i:=0 to 9 do begin
str(i,k);
t:=pos(k,n1);
while t<>0 do begin
write(i);
delete(n1,t,1);
t:=pos(k,n1);
end;
end;
readln;
end.
Данный пример будет работать только в консольном приложении
delphi 7 при нажатии button сохранить
скачать учебники по Object Pascal 
