1) 8=2³, поэтому для хранения палитры требуется 3 бита. И, что то же самое, глубина цвета равна 3 битам.
2) Для хранения информации о цвете одной точки требуется 2 бита, поскольку 4=2². А для 100×100 точек потребуется 100×100×2=20000 бит = 20000/8 = 2500 байт. Это и есть информационный объем.
Uses Drawman;
var a,i:integer;
procedure square(a:integer);
begin
pendown;
onvector(a,0);
onvector(0,-a);
onvector(-a,0);
onvector(0,a);
end;
begin
Task('pp4');
ToPoint(7,17);
pendown;
a:=15;
for i:=1 to 8 do
begin
square(a);
penup;
onvector(1,-1);
a:=a-2;
end;
ToPoint(0,0);
<span>end. </span>
Зачем тебе интернет а бывает крутой