freepascal吧 关注：250贴子：915
- 3回复贴，共1页
var
q,w,e,r,t:real;
c:shortint;
begin
for c:= to 10 do
begin
randomize;
q:=random(300);
w:=random(300-q);
e:=random(300-q-w);
r:=random(300-q-w-e);
t:=300-q-w-e-r;
writeln(q,' ',w,' ',e,' ',r,' ',t);
end;
readln;
end.
q,w,e,r,t:real;
c:shortint;
begin
for c:= to 10 do
begin
randomize;
q:=random(300);
w:=random(300-q);
e:=random(300-q-w);
r:=random(300-q-w-e);
t:=300-q-w-e-r;
writeln(q,' ',w,' ',e,' ',r,' ',t);
end;
readln;
end.
扫二维码下载贴吧客户端
下载贴吧APP
看高清直播、视频！
看高清直播、视频！
贴吧热议榜
- 1Wei走后BLG众人不演了2370510
- 2吧友辣评网络装B神人1661845
- 3五一节的重庆到底来了多少人1289148
- 4狂人阿Bin回怼网友1254960
- 5怎么看三国杀官方被实锤控牌1031082
- 6火箭vs勇士抢七你看好哪队955525
- 7美国中情局公开招募中国间谍876360
- 8BLG复仇WBG如何评价北川首秀674038
- 9赵心童战胜奥沙利文挺进决赛648186
- 10EDG暴毙首次无缘世界赛552480
