Задача 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 x, a, b, k: integer;
begin
write('Введите число: ');
readln(x);
write('Введите цифру: ');
readln(a);
b := 0;
k := 1;
while x > 0 do //цикл пока данное число больше 0
begin
if x mod 10 <> a then // сравниваем последнюю цифру данного числа с указанной цифрой
begin // если последняя цифра данного числа не равна указанной цифре
b := b+(x mod 10)*k; // получаем новое число из числа b и последней цифры данного числа умноженной на коэффициент
k := k*10; // увеличиваем коэффициент (единицы, десятки и т.д.)
end;
x := x div 10; // отбрасываем последнюю цифру из данного числа
end;
writeln('Получилось: ', b);
end.
