1Мбайт=2^23 бит
32 бита = 2^5 бит
2^18- кол-во пикселей на изображение
<span>3*2^10*2^8=3*2^18 - на экране
</span>изображение займет 1\3 экрана
Ответ: 1\3 1Мбайт=2^23 бит
32 бита = 2^5 бит
Зачем нам вещественный массив?
var
i, j, n: integer;
tmp: double;
mas: array[1..101] of double;
begin
randomize;
readln(n);
for i:=1 to n do
begin
mas[i]:= random(-100,107);
end;
for i:=1 to n do
for j:=1 to n do
if mas[j]>mas[j+1] then
begin
tmp:=mas[j];
mas[j]:=mas[j+1];
mas[j+1]:=tmp;
end;
for i:=1 to n do
write(mas[i], ' ');
end.
1) 5101912
5-10-19-12 диск
5-10-1-9-12 диазк
5-10-19-1-2 дисаб
5-10-1-9-1-2 диазаб
2) [10, 64, 32, 0, 65536]
Вес одного символа бит (округляем в большую сторону так как кусками тут быть не может)
Общий вес текста/сообщения
I = K * i (K - кол-во символов, i - вес одного символа/бит на символ)
K = 10 * 64 * 32 шт = 20480 шт
Вес текста I = 20480 * 16 бит = 327680.0 бит =
= 40960.0 байт = 40.0 Кбайт = 0.0390625 Mбайт
3)
С:\Рабочий стол\Снегири.png
С:\Пользователи\Никита\Фото\Истра.jpeg
Я, конечно, не художник, но надеюсь это похоже на ёлки.
uses GraphABC;
begin
For var i := 0 to 4 do
begin
SetBrushColor(clGreen);
FillPie(80 + 120 * i, 100, 25, -50, -130);
FillPie(80 + 120 * i, 115, 40, -50, -130);
FillPie(80 + 120 * i, 135, 60, -50, -130);
FillPie(80 + 120 * i, 160, 75, -50, -130);
SetBrushColor(clBrown);
FillRectangle(74 + 120 * i, 234, 86 + 120 * i, 245)
end;
end.