Дано:
М (мощность алфавита) =64
К (количество символов) =100
х (вес одного символа)
Найти:
Р (размер всей информации)
Решение:
находим вес одного символа
М=2^х ( 2 в степени х)
64=2^х
х=6
находим общий объем информации
Р= к*х (количество умножить на вес одного)
Р=100*6=600
И, между прочим, ОТВЕТЬТЕ, пожалуйста
<span>Ответ: 600 бит</span>
Решение заданиий 2 и 3 - в файлах.
<span>276 = 100010100
276 постоянно делишь на 2, и остаток записываешь с конца к началу
</span><span>276/<span>2=138 остаток 0
</span></span><span>138/<span>2=69 остаток 0
</span></span><span>69/<span>2=34 остаток 1
остаток 0
остаток 1
остаток 0
</span></span>остаток <span>0
</span>остаток <span>0
</span>остаток 1
(1046000+2576) ×8 = 1.048.576 Бит
1.048.576 Бит = 131072 Байт = 128 КБ.
Ответ: 1.048.576 Бит.
Var A:array[1..10] of Integer;
i,N,k,l,j:integer;
begin
Readln(N);
For i:=1 to N do
A[i]:=Random(1,10);
For i:=1 to N do
Write(A[i],' ');
Writeln;
For i:=1 to N do
If (A[i]>=6) and (A[i]<=20) then
k:=k+1;
Writeln('количество значений лежащих в промежутке [6 до 20] ',k);
For i:=1 to N-1 do
For j:=i+1 to N do
If A[i]*A[j]>10 then
l:=l+1;
Writeln('количество значений п<span>роизведение которых больше 10</span>',l);
end.