Задача 1
I = K * i (I - объем информации, K - кол-во пикселей, i - вес одного пикселя / глубина цвета)
i = I / K
K = 1024 * 512 = 524288 пикселей
I = 1 Mb = 1 * 1024 * 1024 * 8 бит = 8388608 бит
Глубина цвета бит
Кол-во цветов в палитре цветов
ответ: 65536.0
Задача 2
I = K * i (I - объем информации, K - кол-во пикселей, i - вес одного пикселя / глубина цвета)
i = I / K
K = 256 * 128 = 32768 пикселей
I = 16 Kb = 16 * 1024 * 8 бит = 131072 бит
Глубина цвета бит
Кол-во цветов в палитре цветов
ответ: 16.0
var sum, sred, a, n:Real;
begin
sum:=0;
a := 0;
Read(n);
while n<>0 do begin
a:=a + 1;
sum := sum + n;
sred := sum/a;
Read(n);
end;
WriteLn('Colichestvo:', a);
WriteLn('Spednee:', sred);
WriteLn('Summa:', sum);
end.
Вот решение.