1)
Var
x,y:real;
begin
read(x);
y:=(3+exp(x))/cos(x)-1/abs(sqr(x)-0.2*x);
writeln(y);
end.
2)
Var
x,y:real;
begin
read(x);
if x<=3 then y:=sqr(x)-3*x+9 else y:=1/(power(x,3)+6);
writeln(y);
end.
3)
Var
p,i:integer;
begin
p:=1;
for i:=9 to 16 do //рассматривается вариант с до 17, а не по 17
if odd(i) then p:=p*i;
writeln(p);
end.
<span>В) соответствует основанию системы счисления
Например, в десятичной системе счисления 10 цифр, в двоичной - две.</span>
1. Найдем объем изображения:
128*128=16384
2. Найдем какое количество бит отводится на пиксель:
2*1024*8/16384=1
3. Получили 1 бит на пиксель. Следовательно количество цветов будет равно 2¹=2
Ответ: 2
1,3
......................