<span>Израсходовали
8 белой краски и Х – коричневой.
Iб= 2 бит</span>
<span>Pб=8/(8+8+Х)
1/p=2^</span>I<span>,
(16+Х)/8= 2^2
16+Х = 32,
следовательно Х = 16.
Ответ: было израсходовано 16 банок коричневой краски.</span>
Решение на фото.
Если ответ не сойдётся, то пишите, будем думать, что делать дальше.
var a,b,c,x1,x2,D:real;
begin
Writeln('Введите коэффициенты квадратного уравнения');
Write('a = '); readln(a);
Write('b = '); readln(b);
Write('c = '); readln(c);
D:=b*b-4*a*c;
if D<0 then writeln('Действительных корней нет')
else
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
Writeln('x1 = ',x1);
Writeln('x2 = ',x2);
readln
end;
end.
Второе в первом
первое во втором