Написать сортировку по ASII на паскале, может кому не трудно?

Жалоба
Вопрос

Во введённой с клавиатуры строке отсортировать символы в порядке возрастания их номеров в ASII – таблице.
Например, если введено ‘CBA’,  в результате надо получить ‘ABC’

В процессе 1
обучение 4 года назад 1 Ответов 187 Просмотров 0

Ответов ( 1 )

    0
    6 лет назад
    Ответить

    Типа так
    var
    s:string;
    n,i,j:integer;
    c:char;
    begin
    readln(s);
    n:=length(s);
    for i:=1 to n-1 do
    for j:=i+1 to n do
    if s[j]<s[i] then begin
    c:=s[i];
    s[i]:=s[j];
    s[j]:=c;
    end;
    writeln(s);
    readln;
    end.

Ваш ответ