摘要：
进制的算法:program Project1;{$APPTYPE CONSOLE}uses SysUtils;//适用于16进制以下转换function Convert(N: Integer; M: Integer):string;var NumArray: array[1..15] of char; I: Integer;begin Result := ''; for I := 1 to 15 do begin if(i < 10) then NumArray[i] := chr(48 + i mod 10) // 1... 阅读全文