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

Question

Информатика

Фессалоника

26 января, 14:18

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

+5

Ответы (1)

Знаете ответ на вопрос?

Алексюша · 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.