8. Рабочий обслуживает 4 станка. Вероятность того, что в течение часа первый станок не потребует внимания рабочего, равна 0,7, для второго станка эта вероятность равна 0,8, для третьего 0,9, для четвертого – 0,85. найти вероятность того, что ровно один станок потребует внимания рабочего.
9. Две работницы изготовили одинаковый комплект деталей. Вероятность, что первая работница допустила ошибку, равна 0,05, для второй эта вероятность равна 0,1. Обнаружена
ошибка. Найти вероятность того, что ошиблась первая работница?
10. Вероятность поражения мишени при одном выстреле 0,8. Найти вероятности:
а) при 8 выстрелах будет 6 попаданий;
б) при 100 выстрелах попаданий будет 82;
в) при 200 выстрелах попаданий более 150

А) имеется в виду скорее всего уничтожение одного из бомбардировщиков, а не двух вместе.

Так как в предыдущем ответе б) и в) найдены верно. Это случай, когда сбиты одновременно два бомбардировщика 0,56, а также случай, когда не сбит ни один из бомбардировщиков 0,06. Значит остаются случаи, когда не сбит один из бомбардировщиков, а сбит другой. Из всех вероятных событий 1, вычитаем оба этих случая.

1-0,56-0,06= 0,42-0,06=0,38 - вероятность, что сбит один бомбардировщик, и не сбит другой.

Если считать по-другому: 

Сбит первый 1-0,7=0,3, а не сбит второй 0,8. Значит вероятность этого случая 0,3*0,8=0,24

Сбит второй 1-0,8=0,2, а не сбит первый 0,7. Значит вероятность уже этого случая равна 0,2*0,7=0,14.

Складываем оба этих случая 0,24+0,14=0,38. - опять тот же ответ.

ответ: вероятность равна 0,38 - сбит один из бомбардировщиков, а не сбит другой.

1)
program one;
uses crt;
var A: array [1..6] of integer;
i,k,Amin,Amax,S: integer;
begin
readln (A[i]);
Amax:=A[1];
k:=1;
for i:=2 to 6 do begin
if A[i]>Amax then begin
k:=i;
Amax:=A[i];
end;
end;
Amin:=A[1];
k:=1;
for i:=2 to 6 do begin
if A[i]<Amin then begin
k:=i;
Amin:=A[i];
end;
end;
S:=0;
for i:=1 to 6 do begin
if (A[i]mod 2=0) and (Amax>A[i]) and (Amin<A[i]) then
S:=S+A[i];
end;
writeln ('Сумма положительных чисел между минимальным и максимальным значениями равна: ', S);
end.

2)
program two;
uses crt;
var x,a,b,i,n: integer;
y: real;
begin
readln (a,b,i,n);
x:=a;   
repeat
if -2<=x<=2 then
y:=sqr(x)-1
else
y:=sqrt(x-1);
writeln (y:3:4);
i:=i+n;
until x>=b;
end.