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

2024-11-22 07:44:49
推荐回答(1个)
回答1:

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