wenas:
pos perdon dec lo que paso es que me desconecte mientras enviava mi hilo y pense que no habia llegado por eso lo envie dos veces
weno a lo que dice delphius pos la verdad no es mi tarea era mi examen jejeje
pero lo que pasa es que yo hice el codigo como sigue
function borrar(n,n1:integer):integer;
var
a,d:integer;
begin
a:=0;
while n>0 do
begin
d:=n mod 10;
if d<>n1 then
begin
a:=a*10 + d;
end;
n:=n div 10;
end;
a:=invertido(a);
result:=a;
end;
function menor(n:integer):integer;
var
aux,d:integer;
begin
aux:=9;
while n>0 do
begin
d:=n mod 10;
n:=n div 10;
if dthen
begin
aux:=d;
end;
end;
result:=aux;
end;
function mayor(n:integer):integer;
var
aux,d:integer;
begin
aux:=1;
while n>0 do
begin
d:= n mod 10;
n:=n div 10;
if auxthen
begin
aux:=d;
end;
end;
result:=aux;
end;
function intercalar(n:integer):integer;
var
d,b:integer;
begin
b:=0;
while n>0 do
begin
d:=mayor(n);
n:=borrar(n,d);
b:=b*10+d;
d:=menor(n);
n:=borrar(n,d);
b:=b*10+d;
end;
result:=b;
end;
y el problema es que si es una cifra con 4 digitos como ser 7364 funca y los acomoda bien sin problemas pero si meto una cifra de 3 digitos como ser 738 al final me pone el numero 9 la verdad no entiendo porque no se si me podrian dar una pista?
desde ya gracias