статистика аудиторских проверок компании утверждает, что вероятность обнаружения ошибки в каждом документе равна 0,1. какова вероятность, что из десяти проверяемых документов девять не будут содержать ошибок?

Для анализа результатов независимых испытаний используется формула бернулли: здесь n = 10 - всего проверяемых документов; m = 9 - число документов, в которых нет ошибки; p = 0,9 - вероятность того, что документ не содержит ошибки; q = 0,1 - вероятность того, что в документе есть ошибка.

Program xxx; var n, s, k, c : integer; sa : real; begin write ('введите число n-'); readln (n); k: =0; s: =0; while n> 0 do begin c: = n mod 10; s: =s+c; k: =k+1; n: =n div 10 end; write ('сумма цифр = ', s); write ('количество цифр =', k); sa: =s/k; write ('среднее арифметическое =', sa) end.

program p;

vara,b,c,i,j,n : integer;

beginwriteln('введите три числа'); readln(a,b,c);

if a> b then if a> c then writeln(a,c,b) else writeln(c,a,b) else if c> b then writeln(a,b,c) else writeln(b,c,a);  

readln; end.