1) A - 0011
B - 0101
A∨B - 0111
B&(A∨B) - 0101
a*b*i=I
N=2^i
Где a*b-размер изображения, N-количество цветов,i-количество памяти на один пиксел, I-Вес рисунка(бит)
1)64*64*i=512*8
i=1
N=2
Ответ:2
2)256=2^i
i=8
a*b*8=2400*8
a*b=2400
Ответ:2400
3)N1=4=2^2
I1=64*128*2=2^14бит=2кбайт
N2=16=2^4
I1=32*32*4=2^12бит=0,5кбайт
Ответ:на первое изображение потребуется в 4 раза больше места
Задача: дана точка с координатами XY, нужно определить, принадлежит ли она указанной области
Решение:
var x, y: real;
begin readln(x, y);
if not ((x >= 0) and (y >= 0) and (y >= -2 * x + 4) and (y <= -x + 6)) then
write('не ');
writeln('принадлежит');
end.
Var a, b, c, d, x1, x2 : real; \\ задание переменных действительных чисел.
begin
write('a = '); readln(a); \\запрос у пользователя первого коэффициента
write('b = '); readln(b); \\запрос у пользователя второго коэффициента
write('c = '); readln(c); \\запрос у пользователя третьего коэффициента
d := b*b - 4*a*c; \\ расчет дискриминанта
if d=0 then \\ветка для решения при нулевом дискриминанте
begin
x1 := b / (2 * a)
writeln (x1:3:3);
end \\ окончание при нулевом дискриминанте
else
if d>0 then \\ ветка для решения при положительном дискриминанте
begin
x1 := (- b + sqrt(d) / (2 * a); \\ первый корень
x2 := (- b - sqrt(d) / (2 * a); \\ второй корень
writeln (x1:3:3, ' ', x2:3:3); \\ вывод ответа
end
else \\ ветка решения для отрицательного дискриминанта
writeln ('Нет действительных корней');
end.