Var
A:array[1..10] of integer;
n:integer;
Begin
Write('n = ');Readln(n);
For n:= 1 to n do
Read(A[n]);
Write('Массив: ');
For n:= 1 to n do
Write(A[n],' ');
WriteLn;
WriteLn('Сумма первого и последнего элемента: ',A[1]+A[n]);
End.
в этом задании несколько правильных ответов, а)length(s) b)copy(a,n,k) c)delete(s,n,k) d)pos(s1,s2)
1) N=2^i i-бит/1 символ N - символов в алфавите
N=56 i=6 6*132 бит в сообщении
(6*132)/8=99 байт
Ответ 99 байт
2) i = (24*8)/48=4
N=2^i=2^4=16 символов в алфавите
Ответ 16 символов
3) 2^i=75
i=7
Ответ 7 лампочек
4) N=18-(-14)=32 +1=33 (включая 0)
i=6 бит/1измер
6*144=864 бит или 108 байт
1. Очень просто. Информационный вес знака - это логарифм по основанию 2 от количества знаков в алфавите.
2. В Unicode каждый символ занимает 2 байта. Если в строке 80 символов, а строк 25, на это нужно 80×25×2 = 4000 байт.