代码改变世界

delphi算法

2017-01-09 18:44  绿贝  阅读(303)  评论(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;