Código Delphi [-] var s,t,u: Variant; begin s:= VarFMTBcdCreate('1',21,0); t:= VarFMTBcdCreate('1',21,0); u:= s+t; while Length(u) <= 20 do begin s := t; t := u; u:= s+t; end; ShowMessage(t); end;
var s,t,u: Variant; begin s:= VarFMTBcdCreate('1',21,0); t:= VarFMTBcdCreate('1',21,0); u:= s+t; while Length(u) <= 20 do begin s := t; t := u; u:= s+t; end; ShowMessage(t); end;