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

Лучший Ответ!
2013-11-05T19:01:26+00:00
Program Zadacha;
Const c = 1.5;
Var w, v, a, b, y: Real;
Begin
Write('w = ');
ReadLn(w);
Write('v = ');
ReadLn(v);
b := v / (w * w);
a := Exp(0.25 * Ln(0.5 - (v * Abs(w * w * w - 100)))) / (b / 13);
y := 2 * a - (b * c);WriteLn('y = ', y:5:2);
ReadLn;
End.
Только там надо подбирать w и v так, чтобы под коренем было положительное число, например w = 5, v = 0.01.
спасиииибо!!!!!))