/  求余

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;

delphi算法