var a: array[1..10] of integer;
i,p: integer;
begin
randomize;
p:=1;
for i:=1 to 10 do begin
a[i]:=random(11)-5;
write(a[i],' ');
if a[i]<>0 then p:=p*a[i];
end;
writeln;
write('p=',p);
end.
Таблица истинности (смотри прикрепленный скрин)
Если экран 1920х1080, то найдем сначало общее количество точек.
1920 • 1080 = 2,073,600
2Мб это 2048 Кбайт, переведём в байт 2048•1024=2,097,152 байт (а это в бит (1 байт = 8 бит.))
2,097,152 * 8 = 16,777,216 бит
Найдем глубину цвета :
16,777,216 : 2,073,600 = 8
2^8 = 256
Ответ: 256