Código Delphi [-] function DecToBin2(D: Integer): String; begin Result := ''; while D > 0 do begin Result := IntToStr(D mod 2) + Result; D := D div 2; end; end;
function DecToBin2(D: Integer): String; begin Result := ''; while D > 0 do begin Result := IntToStr(D mod 2) + Result; D := D div 2; end; end;