// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var n:=ReadInteger('Кол-во элементов:');
var a:=ArrRandomReal(n,-10,20); a.Println;
Writeln('С округлением если |x|<1');
for var i:=0 to n-1 do
if abs(a[i])<1 then a[i]:=Round(a[i]);
a.Println
end.
<u><em>Тестовое решение:</em></u>
Кол-во элементов: 10
-0.751956142835299 5.95022566427953 3.58861613254464 7.42331713783709 -4.75036238075717 -9.41228387384316 -0.700975591643235 3.85500546258642 -1.94321916994789 19.3021338336645
С округлением если |x|<1
-1 5.95022566427953 3.58861613254464 7.42331713783709 -4.75036238075717 -9.41228387384316 -1 3.85500546258642 -1.94321916994789 19.3021338336645
100111=1*2^0+1*2^1+1*2^2+1*2^5=1+2+4+32=39
101=1*2^0+1*2^2=1+4=5
(перевод в десятичную)
39+5=44
39*5=195
ответ: 44 и 195
Номер 1 (левый пример)
1 Мб = 2^10 Кб
1 Кб = 2 ^ 10 байт
1 байт = 2 ^ 3 бит
1 мб = 2 ^ 23 бит
2 ^ (6x + 3) * 2 ^ 23 = 2 ^ (16x + 20)
6x + 3 + 23 = 16x + 20
6 = 10 x
x = 0.6 - Ответ
<em>Нужно посчитать байты слова:</em>
24 * 2 = 48 байта
<em>Зная, что в 1 байте содержится 8 бит делаем следующее:</em>
48 байта * 8 = 384 бит
<em>Ответ: 384 бит</em>
800*600=480 000 число пикселей
480000*4=1 920 000 число пикселей на четырех страницах... .
глубина цвета 24...
24 это - 16 777 216 цветов (или 1 пиксель использует 3 байта)
1920000*3 = 5 760 000 байт = 46 080 000 бит = 5625 КБ = 5.5 МБ