Var
x : real;
begin
read (x);
if (x > -1) and (x <= 11) then write ('принадлежит') else write ('не принадлежит');
end.
1024 Кб = 1024×1024 байта
1 бит = 1/8 байта
1 Кб = 1024 байта
В порядке убывания: 1024 Кбайта, 1 Кбайт, 1000 байт, 1 байт, 1 бит
8 байт - 64 бита
1.5 кбайт =
1 <span>536 байтов
512 бит = 64 байта
2 мбита = </span>
<span>65 536 кбайт
4 бита = 0.5 байта
3072 кбайт = 3 мбайта . Как я поняла тут мегабайты , байты , биты и килобайты да ?</span>
program qq;
var t, c: real;
begin
writeln('Введите кол-во минут');
readln(t);
c:= t*2;
writeln(c, 'бактерий будет через', n, 'минут');
end.