<h2>
Задача 1.</h2><h3>
Дано:</h3>
w (ширина) = 512
h (высота) = 512
N (кол-во цветов) = 256
___________________
I (кол-во видеопамяти)- ?
<h3>Решение.</h3>
K - кол-во пикселей; i - информационный вес одного пикселя
2²¹ бит = 2¹⁸ байт = 2⁸ кБайт = 256 кБайт
Ответ: 256 кБайт.
<h2>
Задача 2.</h2><h3>
Дано:</h3>
w (ширина) = 1024
h (высота) = 768
N (кол-во цветов) = 16777216
___________________
I (кол-во видеопамяти)- ?
<h3>Решение.</h3>
K - кол-во пикселей; i - информационный вес одного пикселя
9 * 2²¹ бит = 9 * 2¹⁸ байт = 9 * 2⁸ кБайт = 2.25 мБайт
Ответ: 2.25 мБайт.
<h2>Задачу 3 оставлю здесь:</h2>
znanija.com/task/27410968
Первый текст - 256 символов = 2^8 - битность 1 символа = 8 бит
Второй текст - 32 символов = 2^5 - битность 1 символа = 5 бит
8/5=1.6 раз
1)
uses crt;
var i:integer;
A:array[0..15] of integer;
begin
For i:= 0 to 15 do
A[i]:= i+1;
For i:= 0 to 14 do
A[i]:= A[i+1];
For i:=0 to 15 do
write(A[i],' ');
end.
2) Перемещает первый элемент массива в конец.
var
i:integer;
begin
for i:=60 to 70 do write (chr(i),' ');
readln;
end.
<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,1,10000); a.Println;
a:=a.Where(x->not ((x mod 10<>0) and (x mod 10).IsEven
and (x mod (x mod 10)=0))).ToArray;
a.Println
end.
<u>Пример</u>
1266 6274 1359 3481 9554 324 1546 3063 8166 1562
6274 1359 3481 9554 1546 3063