Не равно
__________________________
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.
3/256 Мбайта = 1024*3/256 Кбайт = 12 Кбайт = 12*1024 байт = 12*1024*8 бит
Память для одного символа = 12*1024*8 / 6144 = 16 бит
Мощность алфавита = 2^16 = 16384