NUMCON - Ghép số lớn

Tác giả: RR

Ngôn ngữ: Pascal

var
  n,i,j:longint;
  a:array[1..111] of string;
  tmp:string;
begin
  while not eof(input) do
    begin
      inc(n);
      readln(a[n]);
    end;

  for i:=1 to n-1 do
  for j:=i+1 to n do
    if a[i]+a[j]<a[j]+a[i] then
      begin
        tmp:=a[i];
        a[i]:=a[j];
        a[j]:=tmp;
      end;
  for i:=1 to n do write(a[i]);
end.

Download