Cho N số nguyên dương A1, A2, , AN. Từ các số nguyên này, có thể tạo ra một số nguyên mới bằng cách kết nối tất cả các số đã cho viết liên tiếp tiếp nhau. Ví dụ: với N = 3, các số 50, 9, 80 ta có thể tạo ra các số mới như sau: 50980, 50809, 95080, 98050, 80509, 80950. Có tất cả N! số được tạo ra. Trong trường hợp này, số lớn nhất là 98050. Yêu cầu: cho N số nguyên dương A1, A2, , AN. Hãy xác định số lớn nhất có thể tạo thành theo nguyên tắc trên. Dữ liệu vào từ tệp văn bản KETNOI.INP: o Dòng đầu tiên chứa số nguyên N với 1 < N 106. o Dòng thứ hai chứa N số nguyên A1, A2, , AN với 0 < Ai < 100, 1 i N. Hai số kề nhau cách nhau một khoảng trắng. Dữ liệu ra ghi vào tệp văn bản KETNOI.OUT: Số lớn nhất có thể tạo ra từ dãy số. Ví dụ: KETNOI.INP  KETNOI.OUT 3 50 9 80 98050

đệ quy:

uses crt;
var  n,i:longint;
max:real;
f,a:array[1..1000000] of longint;
b:array[1..1000000] of boolean;

function len(n:longint):longint;
var d:longint;
begin
d:=1;
while n<>0 do
begin
 d:=d*10;
 n:=n div 10;
end;
exit(d);
end;

procedure xuat;
var i:integer;
s:real;
begin
s:=0;
for i:=1 to n do
 s:=s*len(f[i])+f[i];
if max<s then max:=s;
end;

procedure try(j:integer);
var i:integer;
begin
for i:=1 to n do
 if b[i]=true then
begin
 f[j]:=a[i];
 if j=n then xuat
 else
 begin
  b[i]:=false;
  try(j+1);
  b[i]:=true;
 end;
end;
end;

begin
assign(input,'KETNOI.inp');
reset(input);
assign(output,'KETNOI.out');
rewrite(output);
readln(n);
max:=-maxint;
fillchar(b,sizeof(b),true);
for i:=1 to n do
 read(a[i]);
try(1);
write(max:0:0);
readln
end.

nâu đệ quy:

uses crt;
var n,i,j:longint;
t:string;
a:array[1..1000000] of string;
begin
assign(output,'KETNOI.inp');
reset(input);
assign(output,'KETNOI.out');
rewrite(output);
readln(n);
for i:=1 to n do
 read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
 if a[i]<a[j] then
 begin
  t:=a[i];
  a[i]:=a[j];
  a[j]:=t;
 end;
for i:=1 to n do
 write(a[i]);
readln
end.