Question

напишите пожплуйста программу по информатике в pascal

Answer 1

var
  a, b, c, s, k, y: real;

begin
  readln(a, b, c);
  s := (sqrt(3 * power(a, 4)) / (3 * c)) + 3 * b;
  k := s + sqrt(abs(power(a, 3) - b - 2 * c));
  y := k - s / (b * c) + sqrt(s);
  writeln(y:0:4);
end.