ИВТ 8 класс Найти W зная a,b,c Если можно,то побыстрее

Question

ИВТ 8 класс
Найти W зная a,b,c
Если можно,то побыстрее

---

---

Answer 1

Var a,b,c,w:real;
begin
writeln('a, b, c:');
readln(a,b,c);
w:=sqrt(a*a+b*b+4*a*b*c)/(a*a+4*a*a*b*b+c*c)+abs(a)+abs(b);
writeln('w = ',w);
end.

Пример:
a, b, c:
-2 -5 4
w = 7.0327326835354