<span>БРАТ-БРАК СЛОГ-СЛОН
ОЧКО-ОЧКИ СТОЛ-СТОГ </span><span>РОСТ-РОСА
ПОЛК-ПОЛЕ БАРД-БАРС
ОБЕД-ОБЕТ ЛОСК-ЛОСЬ</span><span>ЭТАП-ЭТАЖ ОБОД-ОБОИ СКАТ-СКАЗ КРАБ-КРАН ПЕНС-ПЕНЬ
</span><span>ТРОС-ТРОН ТЕМП-ТЕМА
МАРТ-МАРШ МОРС-МОРЕ
ВРАЧ-ВРАГ</span><span>СОЛЬ-СОЛО
КРОТ-КРОВ ЛАВА-ЛАВР ЛОЖА-ЛОЖЕ
ГРОТ-ГРОМ</span><span>ГОРА-ГОРЕ КЛИЧ-КЛИН
ПЕРО-ПЕРИ</span>
Раз 4 одинаковых грани, то log2(4) = 2 бита.
Т.к. нам сказано, что Dat[k] ><span>=</span> d, то нам нужно найти наибольшее значение Dat[k] но т.к. там несколько одинаковых наиб. и n := k, то записать нужно номер последнего наиб. Dat.
Ответ: 9
Program bkmyehf;
const n=100;
var a:array[1..n] of integer;
temp,sum, i,j: integer;
begin
sum:=0;
randomize;
writeln('*** alphaues is thinking... ***');
for i:=1 to n do
begin
a[i]:=random(100)+1;
sum:=sum+a[i];
end;
if sum mod 2 = 0 then
begin
writeln('Сумма элементов чётная');
for i:=2 to n do
begin
if (a[i]>0) AND (i mod 2 = 0) then a[i]:=0;
end;
end
else
begin
writeln('Сумма элементов нечётная');
temp:=a[1];
a[1]:=a[i];
a[i]:=a[1];
end;
for i:=0 to 9 do
begin
for j:=1 to 10 do
write(a[i*10+j]:4);
writeln();
end;
end.
Для анализа результатов независимых испытаний используется формула Бернулли:
Здесь
n = 10 - всего проверяемых документов;
m = 9 - число документов, в которых нет ошибки;
p = 0,9 - вероятность того, что документ не содержит ошибки;
q = 0,1 - вероятность того, что в документе есть ошибка.