С помощью одного БИТа (двоичного символа) можно закодировать 2 комбинации, 1 или 0.
С помощью 5 битов можно закодировать
2 ^ 5 = 32 символа
2 - двоичный символ
5 - количество этих символов
^ - степень
Смотрим по таблице К для b=24. Поэтому К=16777216. Ответ:16777216 цветов
var m:array[1..100000] of integer;
a,b,sum,sum2,n,k,i:integer;
begin
sum:=0;
k:=0;
sum2:=0;
readln(a,b,n);
randomize;
for i:=1 to n do begin m[i]:=random(a,b); if(m[i]<50) then begin sum:=sum+m[i]; k:=k+1; end;
if(m[i]>=50) then sum2:=sum2+m[i]; end;
for i:=1 to n do write(m[i],' ');
writeln;
writeln((sum/k):5:3,' ',(sum2/(n-k):5:3));
end.
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrInteger(10);
a.Reverse.Println
end.
<u>Пример</u>
23 132 52 0 41 7 3732 18 49 13
13 49 18 3732 7 41 0 52 132 23
Исходя из графика
2х - уравнение первой прямой
x/2 - уравнение второй прямой
(x+3)^2 + (y+3)^2 = 9 - уравнение окружности
x = int(input("Enter x "))
y = int(input("Enter y "))
if (((x+3)**2)+((y+3)**2) < 9.0) and ((y > 2*x) or (y < x/2)):
print("Принадлежит")
else:
print("Не принадлежит")