[512, 384, 168]
Глубина цвета = 168 Кбайт / (512 * 384 пикселей) = 168 * 8 * 1024 бит / 196608 пикселей = 1376256 бит / 196608 пикселей = 7.0 бит
Кол-во цветов = 2^7.0 бит = 128.0 цветов
Var
a: array[-10..10] of real;
i: integer;
begin
for i := -10 to 10 do begin
Read(a[i]);
a[i] := a[i] / 10;
Write(a[i]+' ');
end;
end.
<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var a:array of real;
a:=SeqRandom(n,-99,99).Select(t->real(t)).ToArray; a.Println; Writeln;
a.Where(t->Trunc(t) mod 3 <>0).Println
end.
Для того, чтобы определить размер данного предложения нужно подсчитать количество символов в предложении. Оно состоит из 38 символов. Каждый символ кодируется 16 битами или 2 байтами. Исходя из этого:
1. 38 * 2 = 76 байт;
2. 76 * 8 = 608 бит.
Размер данного предложения 76 байт или 608 бит.