1.
var a:array[1..100] of integer;
n,i:integer;
begin
write('N = ');readln(n);
writeln('Полученный массив:');
for i:=1 to n do a[i]:=2*i-1;
for i:=1 to n do write(a[i]:3);
writeln;
end.
Пример:
N = 5
Полученный массив:
1 3 5 7 9
2.
const n=15;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i]:3);
end;
writeln;
write('K = '); readln(k);
for i:=1 to n div k do write(a[i*k]:3);
writeln;
end.
Пример:
Массив A:
6 6 8 14 15 5 18 6 18 1 17 6 3 19 2
K = 3
8 5 18 6 2
<span>2626 +
2618 +
2624 +
2628 - возрастание
2826 - максимальное число от сложения трех цифр не м.б. > 27
2426 - возрастание
1826 - возрастание
106 +</span>
Количество информации можно определить как -log2(p), где p - вероятность данного события. Оно измеряется в битах.
Также можно использовать равносильное выражение log2(1/p)
Вероятность взятия чёрного шара равна 10/20 = 0,5, белого - 4/20 = 0,2, жёлтого такая же - 0,2, красного - в 2 раза меньше - 0,1.
Значит, если мы взяли чёрный шар, мы получили кол-во информации log2(1/0,5) = log2(2) = 1 бит,
если белый, то log2(1/0,2) = log2(5) = 2,3219 бит
если жёлтый, то столько же 2,3219 бит
<span>если красный, то log2(1/0,1) = log2(10) = 3,3219 бит </span>
2) Программа
3) Память
4) Файл
4. Для хранения цветовой палитры, содержащей 256 цветов, необходимо выделить 8 бит = 1 байт данных ( 2 ^ 8 = 256). Каждый цвет палитры будет кодировать бинарный код, состоящий из 8 разрядов.
Изображение размером 10 на 10 точек состоит из 10 * 10 = 100 пикселей.
Каждый пиксель изображения должен нести информацию о цвете, следовательно, для хранения всей картинки потребуется 8 * 100 = 800 бит = 100 байт.
Ответ: информационный объём изображения 800 бит (100 байт).