/ 求余
mod 取模
var a1,a2,a3 : Integer; b1,b2,b3 : Integer; c1,c2 : Integer;begin a1 := 987; //ShowMessage(IntToStr(a1/10)); ShowMessage(IntToStr(a1 mod 10)); 结果是7 ShowMessage(IntToStr(a1 div 10)); 结果是98
end;