var i,B,s:integer;
begin
write('Введите число B: ');
readln (B);
for i:=10 downto B do s:=s+i*i;
writeln ('Сумма квадратов всех целых чисел от 10 до ',B,': ',s)
end.
Program qq;
var z,x,y,v:real;
begin
z:=x*x*x+(y+v)-sqrt(0.25*(y+v));
write('Значение z=',z:6:2);
<span>end.
если надо с вводом значений x,y,v тогда вот так
</span>program qq;
var z,x,y,v:real;
begin
write('Введите значение x');
readln(x);
write('Введите значение y');
readln(y);
write('Введите значение v');
readln(v);
z:=x*x*x+(y+v)-sqrt(0.25*(y+v));
write('Значение z=',z:6:2);
end.
11+7+1=19 клубков
она может вытащить 11 синих клубков и 7 зеленых но если она вытащит еще один клубок. то ОБЯЗАТЕЛЬНО вытащит 1 клубок красной шерсти
2^i=N, где N - объём информации, а i - кол-во бит, которым кодируется единица информации. N=16*8=128.
2^i=128
i=7
Ответ: 7бит