RANDOM函数题，很简单的咯，第二题可以转化为2400人要通过只能过1个人的大门

注意RANDOM（N）是从0到N-1

var
a:integer;
begin
randomize;
a:=random(9);
if a>2 then
begin
a:=a*100;
end
else halt;
writeln(a);
readln
end.

1.你要模拟100次，因为每个人通过的时间不同
2.随机2到8，准确的写法应该是RANDOM(7)+2

于亚杰
1.var n,i:integer;
begin
n:=0;
for i:=1 to 100 do begin
randomize;
n:=n+random(7)+2;
end;
end.
2.var t,n,i:integer;
begin
randomize;
n:=random(12000)+1;
t:=0;
randomize;
for i:=1 to 2400 do t:=t+random(3)+3;
for i:=1 to 12345 do if t div i<=n then begin writeln(i);exit;
end.

谢谢小张老师为大家提供的思路，修正一下，题目大概没说清楚，应该是大门可同时过五个人

第二题漏了一个END。。。。。。

第一题/解一：
var
i:byte;
s:word;
begin
while true do begin
randomize;
s:=0;
for i:=1 to 100 do s:=s+random(7)+2;
writeln(s);
readln;
end;
end.
解二：
var
a:word;
begin
while true do begin
a:=random(601)+200;
writeln(a);
readln;
end;
end.
最后，鄙视小李盗我头像

第二题/解一：
var
s,i,q:word;
begin
while not eof do begin
readln(q);
s:=0;
for i:=1 to 2400 do s:=s+random(3)+3;
if s mod q=0 then writeln(s div q)
else writeln(s div q+1);
end;
end.
第二题/解二：
var
s,i,q:word;
begin
while not eof do begin
readln(q);
s:=s+random(4801)+7200;
if s mod q=0 then writeln(s div q)
else writeln(s div q+1);
end;
end.
最后，鄙视小李盗我头像

张双强
var
a:integer;
begin
randomize
a:randmon(7)+1;
written(a*100);
readln
end.