V = K * I, где:
V - объем.
K - размер изображения.
I - количество бит на цвет.
N = 2^i, где:
N - количество цветов.
Дано:
I1 = 24 бит.
N2 = 16 цветов.
Найти: V1/V2.
Найдем количество бит на цвет при вторичном сохранении:
N = 2^i.
16 = 2^i.
I2 = 4 бита.
Найдем во сколько раз одно изображение больше другого.
V1/V2 = (K * I1)/(K * I2).
Так как сохраняем тот же рисунок, то размер изображения не меняется, его можно сократить.
V1/V2 = I1/I2.
V1/V2 = 24/4.
V1/V2 = 6.
Ответ: объем изменился в 6 раз.
Var
a, b, c: integer;
begin
read(a, b, c);
writeln('P = ',a * b * c);
writeln('S = ',a + b + c);
writeln('A = ',(a + b + c) / 3);
end.
Var
s: string;
i, n: integer;
c: char;
b:boolean;
begin
readln(n);
s := inttostr(n);
for c := '0' to '9' do
begin
b := true;
for i := 1 to length(s) do
if s[i] = c then begin
b := false;
break;
end;
if b then writeln(c);
end;
end.
Var
a, b, c: real;
function IsBetween(x, a, b: real): boolean;
var
t: real;
begin
if a < b then
begin
t := a;
a := b;
b := t;
end;
IsBetween := (a >= b) and (a >= x) and (x >= b);
end;
begin
Readln(a, b, c); // не вводить одинаковых!
Write('Среднее число №');
if IsBetween(a, b, c) then writeln(1);
if IsBetween(b, a, c) then writeln(2);
if IsBetween(c, b, a) then writeln(3);
end.