Question

Составьте программу , которая с тремя произвольными числами а,b и с , введенными с клавиатуры, производит вычисления по следующим формулам: Во вложении.

Answer 1

var
a, b, c, d, e, w, x: real;
begin   
read(a, b, c);   
    d := ( (a*a*a) - 17.5*b ) * ( (c + 3.3*b)*(c + 3.3*b)*(c + 3.3*b) );   
    e := ( (b*c)/(a*d) ) - ( (3 - (d*d)*c) / ( (a*a)*(c*c*c) + ( (c-a+ (d*d) )*(c-a+ (d*d) ) ) ) );   
    w := ((( 5*d - 28.3 )*( 5*d - 28.3 )*( 5*d - 28.3 )) - e + ((b - (a*a))*(b - (a*a)))) / ( e*a*b + b + ( (a*a)/7 ) ) + 25.75;
    x := a + b + (w*w) + ( 7/9 + w );
     writeln('d: ', d);
     writeln('e: ', e);
     writeln('w: ', w);
     writeln('x: ', x);
end.

Answer 2

Program n1;
var a,b,c,d,e,w,x: real;
begin
readln(a,b,c);
d:=(a*a*a-17.5*b)*sqr(c+3.3*b)*(c+3.3*b);
e:=b*c/(a*d)-(3-d*d*c)/(a*a*c*c*c+sqr(c-a+d*d));
w:=(sqr(5*d-28.3)*(5*d-28.3)-e+sqr(b-a*a))/(e*a*b+b+a*a/7)+25.75;
x:=a+b+w*w+((7/9)+w);
writeln(d);
writeln(e);
writeln(w);
writeln(x);
end.