Используем формулу 2^i=N. Так как в алфавите 16 символов (N=16), то 2^i=16, следовательно i=4. 4 бита весит один символ. 384*4=1536. 1536 бит весит сообщение из 384 символов по 4 бита каждый. Переводим биты в байты. 1 байт=8 бит, 1536/8=192 байта. Переводим байты в килобайты. 1 килобайт=1024 байт. 192/1024=0,1875 килобайт весит все сообщение. Так что лучше ответ оставить в байтах (192 байта).
Var
a:array[1..100] of integer;
i,n,k,s:integer;
begin
write('Введите количество членов последовательности: ');
readln(n);
a[1]:=1;
a[2]:=1;
s:=0;
for i:=3 to n do
a[i]:=a[i-2]+a[i-1];
write('Последовательность Фибоначчи: ');
for i:=1 to n do begin
s:=s+a[i];
write(a[i], ' ');
end;
writeln;
write('Введите искомый член последовательности: ');
readln(k);
for i:=3 to k do
a[i]:=a[i-2]+a[i-1];
writeln(k, '-й член последовательности: ',a[i], ' ');
writeln('Сумма ',n,' первых членов последовательности: ',s);
end.
1. 2^6=64 Этажа
2. Количество часов в году: 365*24=8760. Для того, чтобы зашифровать столько дней потребуется 14 бит: 2^14=114688. Отбой. Здесь по-другому скорее всего. Шифруем все по-отдельности: На шифровку числа надо 5 бит, на шифровку месяца надо 4 бита, на шифровку часа 5 бит. Итого 24 бита на шифровку даты. Но первый вариант более экономичен с точки зрения ресурсов=)
3. каждая буква из 32 символьного алфавита кодируется 5 битами: 2^5=32. Сообщение из 24 символов несет инф. равную 24*5=120 бит=15 байт
4. Всего символов: 3*25*60=4500. 1125 байтов = 9000 бит (1125*8). В алфавите символов: 9000/4500=2. Два символа.
6. 2^3=8 подъездов
7. Всего символов: 60*40*10=24000. пусть каждый символ кодируется 5битами (достаточно на алфавит из 32 букв). Тогда книга будет занмиать 120000бит. 120000/8=15000байт. 15000/1024=16,65 КБайт
Program n1;
const n=10;
var a: array[1..n] of real;
sum,k: real;
i: integer;
begin
sum:=0;
k:=0;
for i:=1 to n do
begin
readln(a[i]);
if a[i]>0 then begin
k:=k+1;
sum:=sum+a[i];
end;
end;
write(sum/k);
end.