//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
uses System.Linq;
begin
writeln('III');
var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;
writeln;
while a.Any() do
begin
write(a[0], ' ');
a.RemoveAt(0);
if not a.Any then break;
write(a.Last, ' ');
a.RemoveAt(a.Count - 1);
if not a.Any then break;
var n := 0;
if a.Count > 1 then n := a.Count div 2 - 1;
write(a[n], ' ');
a.RemoveAt(n);
end;
end.
Объяснение:
задача2
посчитаем общее количество шариков в мешочке по формуле N=2^i
подставим в эту формулу 3 и получим двойку в третьей степени - это 8 шариков
задача3
общее количество вариантов рассчитывается по формуле по формуле N=2^i подставим в эту формулу 16 и получим двойку в четвертой степени т.е. i=4 бита
задача5
запишем условие: I=450 бит, К=150, i=?
решение: найдем вес одного символа , разделим I на K - получим
i=450/150=3 бита
задача9
запишем условие: I=2Кб, К=8192, N=?
решение: выразим объем информационного сообщения в битах
I=2*1024*8=16384 бит найдем вес одного символа , разделим I на K - получим
i=16384/8192=2 бита если i=2 если вес одного символа 2, то мощность алфавита равна 4
задача11
определим, сколько символов в алфавите планеты Альфа. Для этого вычеркнем из сообщения повторяющиеся символы: букву М, К, Н, О
осталось вот что: МКЛНОПРСТ! - всего 10 символов
определим вес 1 символа по таблице нецелых степеней числа 2: i=3.32 бита. В исходном тексте 15 символов, поэтому умножим наше i на 15
I=15*3.32=49.8 бит
