1. В цехе работает 12 кондитеров. За неделю (5 рабочих дней) они должны выпустить 12000...

Question

1. В цехе работает 12 кондитеров. За неделю (5 рабочих дней) они должны выпустить 12000 изделий. Вероятность того, что рабочий вышел на работу – 95%. За смену кондитер изготавливает от 150 до 350 изделий. Выполнит ли цех план? 2. Группа из 20 студентов во время сессии сдают пять экзаменов. Для каждого студента вероятность сдать тот или иной экзамен составляет 90%. Определить количество успевающих и неуспевающих студентов. 3. В автоколонне 25 автобусов. Автобус находится в ремонте с вероятностью 4%. За смену автобус может сделать от 8 до 10 рейсов. За рейс перевозится от 30 до 120 пассажиров. Какова выручка автоколонны, если известно, что льготники, составляющие 20% пассажиров, платят по 20 тенге, а остальные – по 30 тенге?

Answer 1

var i,n,sum:integer;

begin

randomize;
for i:=1 to 60 do begin
if (random(100)+1)>5 then begin
sum:=sum+random(201)+150;
end;
end;
if sum>=12000 then writeln('plan vipolnen') else writeln('plan ne vipolnen');
end.

 

var i,j,neud:integer;
begin

randomize;
for i:=1 to 20 do begin
for j:=1 to 5 do begin
if random(10)=0 then begin neud:=neud+1; break; end;
end;
end;
writeln('neud - ',neud,' udv - ',20-neud);
end.

 

var i,j,reis:integer; mon:real;
begin
randomize;
for i:=1 to 25 do begin
reis:=random(3)+8;
if random(100)>3 then begin
for j:=1 to reis do begin
mon:=(random(91)+30)*2.8+mon;
end;
end;
end;
writeln(mon:5:0);
end.