Var a,b,c:real;
begin
writeln('Введите a,b,c');
readln(a,b,c);
if (a<=3) and (a>=-1) then writeln(a, ' принадлежит промежутку [-1,3]');
if (b<=3) and (b>=-1) then writeln(b, ' принадлежит промежутку [-1,3]');
if (c<=3) and (c>=-1) then writeln(c, ' принадлежит промежутку [-1,3]');
end.
3 Кб=3*1024=3072 байт
4 Мб=4*1024 кбайт=4*1024*1024 байт=2*1024*1024*8 бит=16777216 бит
16384 бит=16384/8=2048 байт
2048 байт=2048/1024=2 Кбайт
15400 байт=15400/1024=(приближ)15 кб (=1925/128)
7500 байт= 60000 бит
60000/3=20000 бит - кол во информации на одной станице
K=50
N=256
i=8
I=50*8=400 бит - кол во информации в одной строке
20000/400=50 строк на странице