(I - объем информации, K - кол-во пикселей, i - вес одного пикселя / глубина цвета, N - кол-во цветов в палитре)
Дано:
K = 128 * 512 = 65536 пикселей
I = 24 Кбайт = 24 * 1024 * 8 бит = 196608 бит
i - ?
Решение:
бит (округляем в меньшую сторону так, как тут могут быть только целые числа)
цветов
Ответ: 8
Var m : array[1..50] of Integer;
i,max : Integer;
Begin
max:=0;
For i:=1 to 50 do
Begin
m[i]:=Random(100);
if m[i]>max then max:=m[i];
end;
Writeln(max);
end.
Переведем 159 в двоичную сс. 100101111
ответ: 3
var
i: Integer;
Af: array [1..10] of Integer;
begin
Af [1] := 1; // первый член ряда равен 1
Af [2] := 1; // второй член ряда равен 1
for i := 3 to 10 do begin // цикл, начинающийся с 3-го члена до заданного (десятого)
Af [i] := Af [i - 2] + Af [i - 1]; // каждый член ряда равен сумме двух предыдущих
end;
for i := 1 to 10 do begin // вывод на экран первых 10 членов ряда
Write (Af [i], ', ');
end;
end.
// ------ 2-й вариант (без использования массива) ---------
var
a, b, c, i: Integer;
begin
a := 1;
Write (a, ', ');
b := 1;
Write (b, ', ');
for i := 3 to 10 do begin
c := a + b;
Write (c, ', ');
a := b;
b := c;
end;
end.
V <span><span>= </span><span><span>R </span><span>· t ·η
бит</span></span></span>