var a:array[1..10] of integer;
i:byte;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
writeln(a[i]*2);
end.
Что значит увеличения и уменьшения информации слабо как то понимаю, примеры вообще простые - Бобер Александр собрал палки хворост и всякую мелочь которая хаотично лежала где то там, и сделал из нее плотину, вполне, кстати говоря, порядочную.
А наоборот и будет ответ на второй вопрос, пускай молния ударить в плотину нашего многоуважаемого Александра, и уже порядочная плотина превращается в мусор разбросанный где то там и слегка горящий.
Что касается последнего пункта, то похоладало, какая нить птица заметила это сообщила стае, и вместе они решили улететь перезимовать это дело...
Данное сообщение составлено из всех символов алфавита, значит в алфавите 16 символов. Формула:
N=2 в степени i
i - информационный вес
N - количество символов в алфавите
16=2 в 4 степени
Информационный вес символа: 4 бита.
В сообщении всего 18 символов: 18*4= 72 бита
Const Tc: array[1..5] of integer=(-5, -3, 1, 11, 19);
var i:integer;
begin
writeln(' Tc Tk');
for i:=1 to 5 do writeln(Tc[i]:2,' ',Tc[i]-273:5);
end.
Результат:
<span> Tc Tk
-5 -278
-3 -276
1 -272
11 -262
19 -254</span>
Возможно:
1) 8 × 8 = 84 клетки на шахматном поле (это N)
2) N = 2^i
64 = 2^i
i = 6 бит минимальное количество бит для кодирования координат - в случае кодирования каждой клетки отдельным числом бит
3) N = 2^i
8 = 2^i
i = 3 бита для кодирования одной координатыКоординат две, значит:<span>3 × 2 = 6 бит для кодирования каждой координаты отдельно</span>