Таблица 32 * 16 = 2⁹ символов. Тогда информационный объем одного символа 9 бит. 600 * 9 = 5.400 бит.
Var R,x,y : real; k,i: integer;
begin
write('R='); readln(R);
k:=0;
for i:=1 to 3 do
begin
write('x = '); readln(x);
write('y = '); readln(y);
if sqrt(x*x+y*y)<=R then k:=k+1;
end;
writeln('В круг попали ',k,' точек');
<span>end.</span>
I=6144 байт= 8*6144 бит
k= 6144 символов
i- вес одного символа
I=I/k = 8
N=2^i - алфавит
N=256
Собака
Порода, цвет шерсти, срок жизни