З'ясувати, чи належить число, введене випадковим чином, інтервалу (0;5)​

7,6 Кбайт/сек

Объяснение:

V = K * i, где  

V - информационный объём изображения (размер файла, содержащего изображение)

K - количество точек (пикселей )

i - глубина цвета (число бит, используемых для записи цвета одного пикселя)

N = 2^i, где  

N - количество цветов в палитре

i - глубина цвета (число бит, используемых для записи цвета одного пикселя)

^ - знак степени

V = q * t  , где

V - объем переданной информации

q  - скорость соединения (пропускная канала, в битах в секунду или подобных единицах)

t - время передачи

Дано:

N = 8192

K = 800 х 600 = 480 000

t = 100 секунд

Найти:

q

N = 2^i

2^i = 8192

i = 13 бит (найдено подбором степени)

V = K * i

V = 480 000 * 13 = 6 240 000 бит

V = q * t

q = V / t

q = 6 240 000 / 100 = 62 400 бит/сек

q = 6 240 000 / 100 = 62 400 бит/сек = 62 400 / 8 = 7 800 байт/сек = 7,6171875 Кбайт/сек ≈ 7,6 Кбайт/сек

Uses graphABC;procedure samolet(x:integer);
begin
setpencolor(clblack);
line(3+x,160,3+x,200);     // зад
line(3+x,160,30+x,180);
line(3+x,200,88+x,205);
line(30+x,180,100+x,175);
line(125+x,176,170+x,200);
line(170+x,200,172+x,202);
line(172+x,202,170+x,204);
line(170+x,204,115+x,205);
line(120+x,195,85+x,255);   //крыло
2line(85+x,255,75+x,258);
line(75+x,258,90+x,195);
line(95+x,175,105+x,125);       // крыло
line(105+x,125,116+x,128);
line(125+x,175,116+x,128);
setpencolor(clblue);          //пилот
floodfill(135+x,190,clred);
line(135+x,182,135+x,192);
line(135+x,192,158+x,194);
end;
var x:integer;
begin
lockdrawing;
for x:=1 to 640 do      //движения 
begin 
clearwindow; 
 samolet(x); 
sleep(10); 
redraw end;end.