NUMCON - Ghép số lớn

Tác giả: ladpro98

Ngôn ngữ: Pascal

program numcon;
const   fi='';
var     a:array[1..110] of string;
        n,i:longint;
        inp:text;

procedure swap(i,j:longint);
var     t:string;
begin
        t:=a[i];
        a[i]:=a[j];
        a[j]:=t;
end;

procedure sort;
var     i,j:longint;
begin
        for i:=1 to n-1 do
        for j:=i+1 to n do
        begin
                if a[i]+a[j]<a[j]+a[i]
                then swap(i,j);
        end;
end;

begin
        assign(inp,fi);
        reset(inp);
        n:=0;
        while not eof(inp) do
        begin
                inc(n);
                readln(inp,a[n]);
        end;
        sort;
        for i:=1 to n do
        write(a[i]);
end.

Download