I = K * i (I - объем информации, K - кол-во пикселей, i - вес одного пикселя / глубина цвета)
i = I / K
K = 210 * 210 = 44100 пикселей
I = 4 Kb = 4 * 1024 * 8 бит = 32768 бит
Глубина цвета 
бит (округляем в меньшую сторону так, как тут могут быть только целые числа)
Ой как так!? Не может быть в файле меньше бит чем пикселей!!! Значит в условии ошибка или специальная задача на внимательность
Для наглядности посчитаем для размера 40Кб
K = 210 * 210 = 44100 пикселей
I = 40 Kb = 40 * 1024 * 8 бит = 327680 бит
Глубина цвета 
бит (округляем в меньшую сторону так, как тут могут быть только целые числа)
Кол-во цветов в палитре 
цветов
Ответ: 128
А точный размер файла при этом будет = 44100 пикселей * 7 бит = 308700 бит = 37.6831054688 Кбайт
var y,x:real;
begin
write('Введите x = ');
readln(x);
if (x<=0) then y:=exp(x) else if x>1 then y:=ln(x) else y:=0;
writeln('y = ',y:0:2);
end.
на относится 2 . Потому, что все остальные расширения это рисунки, а это звук.
Напишем главную формулу информатики N=2^i
У нас дано i
i=3
следовательно N=8
8 - кол-во карандашей одного цвета
64/8 = 8 различных цветов
Ответ : 8
Var
a:array[1..10,1..10] of integer;
i, j, j1, max, s: integer;
begin
for i:=1 to 10 do
for j:=1 to 10 do
readln(a[i,j]);
max := a[1,1];
for i:=1 to 10 do
for j:=1 to 10 do
if a[i,j]>max then
begin
max := a[i,j];
j1:=j;
end;
for i:=1 to 10 do
begin
s:=a[i, 1];
a[i, 1] := a[i, j1];
a[i, j1] := s;
end;
<span>end.</span>
