На экране монитора необходимо получить 1024 оттенка серого цвета. какой должна быть глубина цвета

1) 1024=10*10*10   – по 10 бит приходится на каждую из трех составляющих (крас, зелен,  син) ; 2) 10*3 =30бит  - глубина цвета;   ответ 30 бит 

должна быть глубина цвета 512

с каждым днем количество ряски увеличиваеется в 2 раза. 30 июня ряска покрыла всю поверхность озера, значит 29 июня ряской была покрыта половина озера.

если n это количество чисел, начинаем с 3

var

i,n,p: integer

begin

readln(n);

i: =3;

p: =1;

while i< =3*n do

begin

p: =p*i;

i: =i+3;

end;

writeln(p);

end.

если n это верхняя граница чисел

var

i,n,p: integer

begin

readln(n);

for i: =3 to n

if i mod 3 = 0 then

p: =p*i;

writeln(p);

end.