#1 вопрос: какое минимальное основание может иметь система счисления для чисел: 1001, 3252, 521, 14320 запишите число: #2 вопрос: какое это число в двоичной сс: 1*27+0*26+0*25+1*24+1*2³+1*2²+0*2¹+0*20 выберите один из 4 вариантов ответа: 1) 10011100 2) 10100110 3) 10001100 4) 100111000 #3 вопрос: какому восьмиричному числу соответствует десятичное число 46 (воспользуйтесь двоичным представлением этого числа) выберите один из 4 вариантов ответа: 1) 36 2) 66 3) 16 4) 56 #4 вопрос: какому шестнадцатиричному числу соответствует десятичное число 46 (воспользуйтесь двоичным представлением этого числа) выберите один из 4 вариантов ответа: 1) е2 2) 2е 3) 2d 4) 2f #5 вопрос: какому числу двоичной системы счисления соответствует десятичное число 46 выберите один из 4 вариантов ответа: 1) 101101 2) 11101 3) 101110 4) 1001001

1)  - основание минимальное =6
2)  10011100  - вариант 1
3) 46(10) = 56(8) -> 4 вариант
4) 46(10) = 2Е(16)  - 2 вариант
5) 46(10) = 101110(2)  - 3 вариант

Объяснение: реальной жизни существует множество ситуаций с различными вероятностями. Например, если у монеты одна сторона тяжелей другой, то при ее бросании вероятность выпадения «орла» и «решки» будет различной.

 

Сначала разберемся с понятием «вероятность». Введем следующие понятия:

испытание - любой эксперимент;

 

единичное испытание - испытание, в котором совершается одно действие с одним предметом (например, подбрасывается монетка, или из корзины извлекается шар);

 

исходы испытаний - результаты испытания (например, при подбрасывании монеты выпал «орел», или из корзины извлекли белый шар);

множество исходов испытания - множество всех возможных исходов испытания;

 

случайное событие - событие, которое может произойти или не произойти (например, выигрыш билета в лотерее, извлечение карты определенной масти из колоды карт).

Заполнение с клавиатуры:

Var
   A:array[1..5] of integer;
   i,O,P:integer;
Begin
Write('Введите массив A(5): ');
O:=0;
P:=0;
For i:= 1 to 5 do
    Begin
    Read(A[i]);
    if A[i] < 0 then O:=O+1
    else if A[i] > 0 then P:=P+1;
    End;
WriteLn('Количество отрицательных: ',O);
WriteLn('Количество положительных: ',P);
End.

Заполнение случайными числами:

Const
   N = 5;
Var
   A:array[1..N] of integer;
   i,O,P:integer;
Begin
Randomize;
Write('Введите массив A(5):');
O:=0;
P:=0;
For i:= 1 to N do
    Begin
    A[i]:=random(2*N+1)-N;
    Write(' ',A[i]);
    if A[i] < 0 then O:=O+1
    else if A[i] > 0 then P:=P+1;
    End;
WriteLn;
WriteLn('Количество отрицательных: ',O);
WriteLn('Количество положительных: ',P);
End.