Склавиатуры вводится число х. заполните массив 10 элементами, в котором: первый на 1 меньше х, второй на 2 меньше и т.д., десятый – на 10 меньше х.(паскаль)
Const n=10; var a:array[1..n] of integer; x,i:integer; begin write('x = '); readln(x); for i:=1 to 10 do a[i]:=x-i; for i:=1 to n do write(a[i]:3); writeln; end.
2 бита в двоичной системе дают 4 возможных комбинации. То есть вероятность извлечения белого шара 1/4, то (исходное целое делим на количество комбинаций) . Таким образом, получаем, что всего шаров: белых - одна часть, а чёрных - три. То есть белых шаров в 3 раза меньше: 18 / 3 = 6 (штук) . А всего шаров: 18 чёрных + 6 белых = 24
или
Пусть в корзине всего x шаров, тогда среди них x-18 белых.
Вероятность того, что из корзины будет вынут белый шар равна P=(x-18)/x Количество собственной информации равно I=log2(1/P)=log2(1/(x-18)/x))=log2(x/(x-18))
В годном гигабайте 1 073 741 824 байт т. е. * 8 бит. 234 бита/8 = 30 байт, т. е. до гигабайта ещё как до Альдебарана! =)) С 233 сообщениями по 1 биту, если вы это имели ввиду, дело обстоит сложнее, т. к. это смотря где они лежат (если каждое в отдельном файле, то минимальный размер одного файла на диске физически зависит от размера кластера в таблице разделов, а это от 256 байт до нескольких килобайт, т. е. сперва надо выяснить характеристики носителя информации, где они будут лежать и умножить потом на размер кластера).
var a:array[1..n] of integer;
x,i:integer;
begin
write('x = '); readln(x);
for i:=1 to 10 do a[i]:=x-i;
for i:=1 to n do write(a[i]:3);
writeln;
end.
Пример:
x = 25
24 23 22 21 20 19 18 17 16 15