1-10之间的整数相加,得到累加值大于20的当前值。用循环得到

2024年11月22日 07:44
有1个网友回答
网友(1):

procedure myprocedure;
var
sum:integer;
begin
sum:=0;
while sum<20 do
sum:=sum+int(10*random(1));
end;