1) a*(a+b+c) = aa+ab+ac = a+ab+ac = a(1 + b + c) = a * 1 = a
2) a*b + ¬b + ¬a*b = b(a + ¬a) + ¬b = b * 1 + ¬b = b + ¬b =1
3) (¬a + b) * ¬c * (c + a * ¬b) = (¬a + b) * (¬c*c + a¬b¬c) =
(¬a + b) * a¬b¬c = ¬aa¬b¬c + ba¬b¬c = 0 + 0 = 0
4) (a+b)*(¬a+b)*(¬a + ¬b) = (¬aa+ab+¬ab+b)*(¬a + ¬b) =
(ab + ¬ab + b)*(¬a + ¬b) = b(a + ¬a + 1)*(¬a + ¬b) = b*(¬a + ¬b) =
¬ab + ¬bb = ¬ab
1)
8 Кбайт=8*2^13 бит =2^16 бит
256*256=2^8 * 2^8=2^16 пикслей
2^16 бит : 2^16 пикселей = 1 бит для кодирования одного пикселя
2^1 =2 цвета <--- ответ
2) 24*800*600=11 520 000 бит =
=1440000 байт =1406,25 Кбайт≈1407 Кбайт <---- ответ
3)
640*480*8=(5* 2^7) * (15*2^5) * (2^3) бит=75*2^15 бит=
=75*2^12 байт = 75*2^2 Кбайт =75*4 Кбайт = 300 Кбайт <--- ответ
Var
A:array[1..50] of integer;
i,S:integer;
Begin
For i:= 1 to 50 do
Begin
A[i]:=1;
Write(A[i],' ');
S:=S+A[i]
End;
WriteLn;
WriteLn('S = ',S);
End.
var
k: array [1..12] of <em>double</em>;
i: <em>byte</em>;
begin
for i := 1 to 12 do
begin
write('Enter the ', (new System.DateTime(1, i, 1)).toString('m').Replace('1', ''), 'temperature: ');
readln(k[i]);
end;
writeln('1) ', (k[12] + k[1] + k[2]) / 3);
writeln('2) ', (k[3] + k[4] + k[5]) / 3);
writeln('3) ', (k[6] + k[7] + k[8]) / 3);
writeln('4) ', (k[9] + k[10] + k[11]) / 3);
<span>end.</span>