СХЕМА ВО ВЛОЖЕНИИ
var
x,y:real;
begin
readln(x);
if x<0 then writeln('не существует')
else
begin
y:=2*x*sqrt(x+sqrt(x));
Writeln('x: ',x:4:2,' y: ',y:4:2) ;
if (x>=0)and(x<=2)and(y>=0)and(y<=1)then writeln('принадлежит')
else
writeln('не принадлежит')
end;
<span>end.
</span><span>
</span>
Program B;
type
t=array[1..20] of integer;
var
a:t;
N,i:byte;
S:integer;
begin
readln(N); //кол-во элементов в массиве
S:=0;
for i:=1 to N do
begin
read(a[i]);
S:=S+a[i];
end;
write(S);
end.
1) 10101-1110=111₂
2) 111₂=2²*1+2*1+2⁰*1=4+2+1=7₁₀
1 клумба=76
2 клумба=44
3 клумба=16
4 клумба=46
76+44+16+46=182 (м)- провода нуж но.
Ответ:182
Каждый символ несёт в себе 4 бита информации (из формулы N=2^i, где N - мощность алфавита, i - число битов)
всего информации 130*4=520(бит)=65(байт)