Question

решите срочно на языке паскаля​

Answer 1

var

b,c,a,s:real;

begin

 writeln('введите А');

 readln(a);

 writeln('введите b');

 readln(b);

 writeln('введите c');

 readln(c);

 s:=(b+sqrt(b*b+4*a*c))/(2*a)-a*a*a*c+b*b;

 writeln(s)

end.