Var
x, y: real;
b: boolean;
begin
Write('Введите через пробел координаты X,Y: ');
Readln(x, y);
{ рис 21 }
if y < 0 then b := false
else
if x <= 0 then b := (sqr(x) + sqr(y) <= sqr(3))
else b := (y <= 3 - x / 2);
Writeln(b);
{ рис 23 }
if (y<0) or (sqr(x)+sqr(y)>sqr(6)) then b:=false
else
if x<=0 then b:=true
else b:=(sqr(x)+sqr(y)>=sqr(3));
Writeln(b)
end.
Тестовое решение:
Введите через пробел координаты X,Y: 3.4 2
False
True
10 10.4
11 11.4
12 12.4
13 13.4
14 14.4
15 15.4
16 16.4
17 17.4
18 18.4
19 19.4
20 20.4
21 21.4
22 22.4
23 23.4
24 24.4
25 25.4
Ответ:
Объяснение:
Подбор кода(Как кодировать), кодирование(Сам процесс), передача, прием, расшифровка(Подборка ключа и т.п).
На каждую составляющую пикселя отведено 7 бит, отсюда количество возможных цветов: N=2^7= 128
Тогда на 3 цвета получим 128*128*128= 2097152 возможных цветов пикселя