delphi算法
2017-01-09 18:44 绿贝 阅读(301) 评论(0) 编辑 收藏 举报/ 求余
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;