Girilen bir sayının rakamlarıyla yazılabilecek en büyük sayıyı hesaplayacağız.
Kodlar şu şekilde;



uses crt;
var
i,x,y,hafiza:integer;
sayi:longint;
dizi:array[1..7] of integer;
begin
write('Sayı yı giriniz:'); readln(Sayi);
i:=1;
repeat

dizi[i]:=sayi mod 10;
sayi:= sayi div 10;
i:=i+1;

until sayi=0;

for x:=1 to i do begin
for y:=x+1 to i-1 do begin
if dizi[x] < dizi[y] then begin
hafiza:=dizi[x];
dizi[x]:=dizi[y];
dizi[y]:=hafiza;
end;
end;
end;

write('Verdiğiniz sayının rakamlarıyla yazılabilecek en büyük sayı:');
for x:=1 to i do
write(dizi[x]);

readln;
end.


Kaynak: http://www.tekno-logy.com/girilen-bir-sayinin-rakamlariyla-yazilabilecek-en-buyuk-sayi.html