1)32x32=1024 точки.
2)512 байт=4096 бит.
3)<span>4096/1024 = 4 бит на каждую точку.
</span>4)2^4=16 цветов .
1011010,1=1*2^6+1*2^4+1*2^3+1*2^1+1*2^-1=90.5
Var a,b:integer;
Begin
a:=1;
b:=2;
While a + b < 10do
Begin
a:=a+2;
b:=b+1
End;
a:=a*2;
b:=b*10;
WriteLn('a = ',a,' b = ',b)
End.