求delphi中的取模函数，以及随机取数函数（在线等，答对立即给分）

Question

取模函数描述：判断数除以10是否有余数

Answer 1

Y mod 6var   I: Integer;
 begin
   Randomize;
   for I := 1 to 50 do begin
     { Write to window at random locations }
     Canvas.TextOut(Random(Width), Random(Height), 'Boo!');
   end;
 end;

Answer 2

取模函数描述：判断数除以10是否有余数
/////////////////////////////////
取模不是函数，而是操作符，和+，-，*，/，div一样
使用方法
b := a mod 10
if b = 0 then
//没有余数
else
//有余数，余数为b

Answer 3

取模函数描述：判断数除以10是否有余数
/////////////////////////////////
取模不是函数，而是操作符，和+，-，*，/，div一样
使用方法
b := a mod 10;
if b = 0 then
//没有余数
else
//有余数，余数为b

Answer 4

随机函数
function Random [ ( Range: Integer) ];
使用方法
x = Random();//0 <= x < 1 实数
x = Random(Range);//0 <= x < Range 整数使用Random()之前最好加一个
Randomize;
////////////////////////////
如果还有问题自己去看帮助 F1