Для анализа результатов независимых испытаний используется формула Бернулли:
Здесь
n = 10 - всего проверяемых документов;
m = 9 - число документов, в которых нет ошибки;
p = 0,9 - вероятность того, что документ не содержит ошибки;
q = 0,1 - вероятность того, что в документе есть ошибка.
Var a: array[0..9] of Integer;
i,k,b,c: Integer;
begin
for i:=0 to 9 do
begin
a[i]:=Random(100);
writeln(i+1,' число: ',a[i]);
end;
for i:=0 to 9 do
begin
for k:=0 to 9 do
begin
if a[i]<a[k] then
begin
b:=a[i];
c:=a[k];
a[i]:=c;
a[k]:=b;
k:=0;
end;
end;
end;
writeln('Числа по возрастанию:');
for i:=0 to 9 do
writeln(i+1,' число: ',a[i]);
begin
end;
end.
Зашифрованное слово - криптоанализ
При шифровании не использовался рисунок справа. Это так называемый масонский шифр. Чтобы расшифровать, нужно символ как бы подставить в рисунок. Например, 1 символ показывает, что слева, сверху и снизу от него есть перегородка. В сетке нам подходит две буквы - Й, К. Точка указывает, что буква нужна вторая, а именно К. Возьмем 5 символ. В сетку он не подходит, а подходит в рисунок посередине, перекрестие, и именно вверх. Это буквы С, Т. Точка указывает на букву Т. Отсутствие точки означает, что берется первая буква
Ответ записать в формате writeln(e:4:1).
тогда после запятой будет 1 символ
