Var
<span> n, m: </span>real;
begin
readln(n, m);
n := m / n;
writeln(n:5:2, ' д.');
<span>end.</span>
Var c:real
begin
readln(c);
c:=c*2;
writeln(c);
end.
1) вариант 1
165(10)
разбираем его по степеням 2:
2^7=128;2^6=64;2^5=32;2^4=16;2^3=8;2^2=4;2^1=2;2^0=1
165= 1*128 + 37 = 1*128 + 0*64 + 1*32 + 5 =
= 1*128 + 0*64 + 1*32 + 0*16 + 0*8 + 1*4 + 0*2 + 1*1
10100101 (2)
сравниваем
11001011 (2)
Больше первое число
2) вариант 2
11001011(2)
"собираем" десятичное число по байтам (значение_бита * 2 в степени бита)
1*2^7 + 1*2^6 + 0*2^5 + 0*2^4 + 1*2^3 + 0*2^2 + 1*2^1 + 1*2^0 =
= 1*128 + 1*64 + 0*32 + 0*16 +1*8 + 0*4 + 1*2 + 1*1 =
= 128 + 64 + 8 + 2 + 1 = 203
сравниваем 203 и 165 (в 10-тичной системе)
Опять получается первое число больше
20= 180*i(вес одного символа)
i=720/180
(количество информации в сообщении) i=4
(мощность алфавита)N=2^i
N=2^4
N=16
Объяснение:
I=K*i=1024*768*32=25165824 бит