4 года назад

Сколько битов нужно чтобы закодировать выбор одного из 12 вариантов

Знания

Информатика

1 ответ:

Anastasia-investor4 года назад

0 0

Хз честно эх хых хох

Читайте также

ПОМОГИТЕ СРОЧНО,ПОЖАЛУЙСТА 1)Сколько информации содержит сообщение,уменьшающее неопределенность знаний в 8 раз?2)В корзине лежат

Markiza32 [65]

Токо на 2
Дано: N(ч) = 8; N(б) = 24. 
Найти: i(ч) = ? 
Решение: 
1)N = 8 + 24 = 32 — всего шаров. 
2)р (ч) = 8/32 =1/4 — вероятность доставания черного шара. 
3) i(ч) = log2 ( 1/(1/4)) = 2 бита. 
Ответ: 2 бита.

0 0

4 года назад

1.Сгенерировать 10 чисел от 0 до 20, вывести их на экран, найти сумму тех чисел, которые умножаются на 3 без остатка 2.Сгенериро

Кристина1505 [7]

1)
Program asd;
USES crt;
Const n=10;
Var A:array[1..n] of integer;
i,kp,s:integer;
BEGIN
Writeln('Массив: ');
For i:=1 to n do
begin
A[i]:=Random(20);
Write(A[i]:4);
end;
Writeln;
For i:=1 to n do
begin
If A[i] mod 3=0 then
s:=s+1;
end;
Writeln('Сумма: ' ,s);
END.

2)
Program asd;
USES crt;
Const n=10;
Var A:array[1..n] of integer;
i,kp,s:integer;
BEGIN
Writeln('Массив: ');
For i:=1 to n do
begin
A[i]:=Random(20)-10;
Write(A[i]:4);
end;
Writeln;
For i:=1 to n do
begin
If A[i]<0 then s:=s+1;
end;
If s=0 then Writeln('Нет отр. элементов!');
Writeln('Сумма отр. элементов: ' ,s);
END.

0 0

3 года назад

Помогите решить задачу по информатике)) Используя жесткий цикл , выведите на экран все числа от 20 до 99, не оканчивающиеся на 7

Натасвит

program cikl;
var i:integer;
begin
for i:=20 to 99 do
if i mod 10<>7 then write(i:3);
end.

0 0

4 года назад

Даны три целых числа A, B, C. Значение чисел вводятся с клавиатуры. Определить максимальное значение средних данных чисел. Резул

favain

Программа во вложении

0 0

1 год назад