Var a:integer;
begin
randomize;
a:=random(30);
writeln('Количество этажей: ',a);
write('В доме');
if a<6 then write(' лифта нет.');
if (a>=6) and (a<=10) then write(' 1 лифт');
<span>if (a>=11) and (a<=18) then write(' 2 лифта');
</span><span>if (a>=19) and (a<=30) then write(' 4 лифта');</span>
end.
Алгоритм линейный, протокол работы такой:
Введите значение переменных a и b:
24
-85
c= -61
d= -122
d= -119
d= -118
Значение выражения равно -118
Log2(64) = 6 битов на символ. А байт у нас 8-битовый. Естественно, только дeбил будет один символ разносить по разным байтам. Поэтому на символ у нас один байт. Соответственно, текст занимает 800 байтов.
12022, 1222, 989, 90899, 9000
1) log(2)128 = 7 бит (2^7 = 128)
2) Для хранения одного символа необходимо log(2)32 = 5 бит. Объем сообщения = 60*5 = 300 бит