Абсолютная ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
3 бита. Почему?
Смотри. У нас всего 8 цветов. Компьютер хавает значения в двоичной системе счисления. Т.е. циферки 1 и 0. Если у нас, грубо говоря, есть один слот. Т.е. мы можем для каждого пикселя выделить 1 циферку (1 или 0.) к слову, одна циферка - это один бит. то у нас будет всего два варианта. Собственно 1 или 0. Т.е. будет только 2 цвета.
Если у нас будет, опять же, грубо говоря, два слота... Т.е. две циферки. То мы можем использовать такие значения как 00,01,10,11. А это уже четыре цвета. В нашем случае нужно 8 цветов. Это 3 бита. Три слота. 000,001,010,011,100... и т.д.
Если объяснить все с точки зрения формулы - то у нас 8 цветов. В какую степень нужно возвести число 2 , чтобы получить 8* в третью.
Ответ: 3.
Извините, что коряво объясняю
1) "Живы родители - почитай, померли - поминай!"
<span>В блоке "Ромб" - Живы родители? По стрелке Да - почитай, по стрелке Нет - поминай.
2)На том же месте
3)</span>
Const
K = 10;
Var
Z:array[1..K] of integer;
i:integer;
P,O:real;
Begin
For i:= 1 to K do
Begin
Z[i]:=random(21)-10;
Write(Z[i],' ');
if Z[i]<0 then O:=O+Z[i]
else P:=P+Z[i];
End;
WriteLn;
WriteLn('Сумма положительных элементов: ',P);
WriteLn('Сумма отрицательных элементов: ',O);
End.
То же, но с вводом с клавы:
Const
K = 10;
Var
Z:array[1..K] of integer;
i:integer;
P,O:real;
Begin
WriteLn('Введите элементы массива:');
For i:= 1 to K do
Begin
Read(Z[i]);
if Z[i]<0 then O:=O+Z[i]
else P:=P+Z[i];
End;
WriteLn;
WriteLn('Сумма положительных элементов: ',P);
WriteLn('Сумма отрицательных элементов: ',O);
End.
