Т.к. цветов 128=2^7, то каждый пиксель кодируется 7 битами. Всего пикселей 128*64=2^7*2^6=2^13;
Объём информации 7*2^13бит=7*2^10байт=7Кб
<span>2) каждое из чисел х у z положительно
( x>0) </span>∧ (y>0) ∧ (z>0)
<span>1) х у z равны между собой
(x=y)</span>∨ (x=z) ∨ (y=z)
<span>3) хотя бы одно из чисел х у z отрицательно
(x<0)</span>∨ (z<0) ∨ (y<0)
<span>4) хотя бы одно из чисел х у z не является положительным
</span>(x<0)∨ (z>0) ∨ (y>0)
<span>5) только одно из чисел х у z не больше 10
</span> (( x<=10) ∧ (y>10) ∧ (z>10)) ∨ ( ( x>10) ∧ (y<=10) ∧ (z>10)) ∨ ( ( x>10) ∧ (y>10) ∧ (z<=10))
<span>6) ни одно из чисел х у z не равно 104
</span>¬(x=104)∧ (¬(y=104))∧( ¬(z=104))
ВТОРОЕ ЗАДАНИЕ ПРОВЕРЬ УСЛОВИЕ ПОЖАЛУЙСТА? ЧТО-ТО В НЕМ НЕВЕРНО
Var
x, y, z : real;
begin
read (x, y, z);
if (x > 0) then x := sqr (x);
if (y > 0) then y := sqr (y);
if (z > 0) then z := sqr (z);
write (x, ' ', y, ' ', z);
end.
// PascalABC.NET 3.0, сборка 1128
begin
var a:=ArrRandom(20,-10,19);
a.Println(','); // 1
var b:=ReadArrInteger('Введите 10 целых чисел',10); // 2
Writeln('Количество положительных элементов ',
a.Where(x->x>0).Count); // 3
for var i:=0 to 19 do
if a[i]<0 then a[i]:=0;
Writeln('Массив А после замены отрицательных'); a.Println(','); //4
Writeln('Сумма положительных элементов ',
a.Where(x->x>0).Sum) // 5
end.
<u><em>Тестовое решение:</em></u>
14,8,9,-5,6,3,3,-10,-8,18,7,13,2,17,-1,0,4,-3,8,-8
Введите 10 целых чисел -5 0 13 -7 -14 11 8 19 -3 -1
Количество положительных элементов 13
Массив А после замены отрицательных
14,8,9,0,6,3,3,0,0,18,7,13,2,17,0,0,4,0,8,0
Сумма положительных элементов 112
