Ответы и объяснения

2014-03-04T07:24:46+00:00
Var 
  a, b, c, x : real;
begin 
  read (a, b, c); 
  x := (b + sqrt (sqr (b) + 4 * a * c)) / (2 * a) - a*a*a*c + (1 / sqr (b)); 
  write (x);
end.