intercalar digitos

[[gatosoft]]

Podrias probar...

Código Delphi [-]
function intercalar( var a,b,c:cnumeronatural):integer;
var pos:integer;
    tamanomaximo: Integer;
begin

if a.numerodigitos > b.numerodigitos then
   tamanomaximo := a.numerodigitos
else
   tamanomaximo := b.numerodigitos;

pos:=1;
while pos <= tamanomaximo do
   begin
     if a.numerodigitos >= Pos then
        c.asignarvalor((c.obtenervalor * 10) +  a.Digito(POS));

     if b.numerodigitos >= Pos then
        c.asignarvalor((c.obtenervalor * 10) +  b.Digito(POS));

   pos:=pos+1;
   end;
end;