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 Кбайт <--- ответ
<em>// PascalABC.NET 3.3, сборка 1576 от 16.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(31,-10,12); a.Println;
Writeln('Дней с нулевой температурой- ',a.Where(t->t=0).Count);
Writeln('Дней с отрицательной температурой- ',a.Where(t->t<0).Count);
Writeln('Дней с положительной температурой- ',a.Where(t->t>0).Count);
end.
<u>Пример</u>
9 -8 0 -10 5 -10 5 -8 -5 8 -2 0 -7 -5 3 6 10 5 -5 1 5 5 10 -3 -3 6 8 7 6 7 12
Дней с нулевой температурой- 2
Дней с отрицательной температурой- 11
Дней с положительной температурой- 18
<u>Если хочется вводить с клавиатуры</u>, вместо строки
var a:=ArrRandom(n,-10,12); a.Println;
надо написать
var a:=ReadArrInteger('Введите температуру по дням'+NewLine,31);
Var
a,b:array[1..100]of integer;
i,max,min,n:integer;
begin
readln(n);
max:=0; min:=32;
for i:=1 to n do
begin
readln(a[i],b[i]);
if a[i]>max then max:=a[i];
if b[i]<min then min:=b[i];
end;
if min>=max then
writeln('YES')
else writeln('NO');
end.
Пример:
3
1 5
3 10
4 14
<span>YES</span>
Синтез — процесс соединения или объединения ранее разрозненных вещей или понятий в целое или набор.