Программа представлена на изображении.
V = K * I, где
V - объем;
K - размер изображения;
I - количество бит на символ.
N = 2^i, где
N - количество цветов.
V = K * I .
I = V/K = (2*2^13) / (50 * 100) = 2^14 / (2 * 25 * 25 * 2^2) = 2^14 / (2^3 * 25^2) = 2^11 / 625 = 2048 / 625 = 3,2768 ~ 4 бита.
N = 2^i.
N = 2^4.
N = 16 цветов.
Program temp;
uses crt;
var
tem:array [8..20] of real;
min:real;
i:integer;
begin
for i:=8 to 20 do
begin
clrscr;
writeln('Vvedite temperaturu dlya ',i,' chasa zamera');
read(tem[i]);
end;
for i:=8 to 20 do if tem[i]<0 then min:=i;
writeln('Vpervue otricatelnaya temperatura otmechena v ',min);
readln;
end.
Var n,k,m: integer;
<span>begin
</span><span> write('n = '); readln(n);
</span><span> k:=n; m:=1;
</span><span> while k>0 do
</span><span> begin
</span><span> k:=k div 10;
</span><span> m:=m*10;
</span><span> end;
</span><span> k:=2*m*10+n*10+2;
</span><span> writeln(k);
</span><span>end.
</span>n = 78954
<span>2789542
</span>
<span>
</span>