Var
x : real;
begin
read (x);
if (x > -1) and (x <= 11) then write ('принадлежит') else write ('не принадлежит');
end.
3 Кбайта = 3 * 2^10 байта = 3 * 2^10 * 2^3 бита
k = 2^12
I = k*i, где I - <span>информационный о</span><span>бъемом, k - кол-во символов, i -отводимое количество бит на символ
i = I/k = 3*2^13/2^12 = 3*2 = 6;
Мощность алфавита N = 2^i, N = 2^6 = 64
Ответ: 64 символа
</span>
1)var a:array [1..10] of integer;
i,c:integer;
begin
randomize;
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(200);
write(a[i],' ');
if (a[i]>9) and (a[i]<100) then c:=c+1;
end;
writeln;
write('Количество двузначных элементов: ',c);
end.
2)var a:array [1..10] of integer;
i,c,min:integer;
begin
randomize;
min:=200;
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(200);
write(a[i],' ');
if a[i]<= min then
begin
min:=a[i];
c:=i;
end;
end;
writeln;
write('Номер последнего минимального элемента: ',c);
end.
3)var a:array [1..10] of integer;
i,c,min:integer;
begin
randomize;
min:=200;
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(200);
write(a[i],' ');
if (a[i]mod 5=0) and (a[i]<min) then min:=a[i];
end;
writeln;
if min<200 then write('Минимальный элемент,кратный 5: ',min) else write('Нету такого элемента.');
end.
1 бит = 1 символу
1 байт = 8 бит
1килобайт = 1024 байта
3,5 * 1024= 3584 байта
3584 * 8 = 28672 бит
ответ в тексте 28672 симв
500 байт = 500*8бит=4000бит<span>5 Кб= 5/1024 Мб
87 Гб= 87*1024*1024*1024 байт=93415538688
7 Мб = 7*1024*1024*8 бит =58720256 бит
46 байт = 46/1024/1024Мб=0,0000438690185546875
700000 бит = 700000/8/1024=85,44921875 Кб
№2
32=2^i, следовательно i=5 бит
Тогда объем информации будет равен 3*25*80*5=30000 бит=3750 байт
№3
32=2^i i= 5 бит; Объем 1 сообщения 5*80=400 бит
64=2^i i=6 бит; Объем 2 сообщения 6*70=420 бит
№4
Всего в письме 30*48=1440 символов
900 байт=7200 бит
Информационный вес одного символа 7200бит/1440сим=5 бит
Мощность алфавита 2^5=32 символа.
№5
64=2^i=2^6
Следовательно i=6 бит
№6 решение аналогично №5</span>
