Question

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

Answer 1

Паскаль
var a,b,c,d,e,f,w,x,z:real;
begin
read(a,x,z,w);
b:=((sqr(z)-sqr(a))*7.5*z-3*z*sqr(power(z,3)+w)+3*x*z)/(25*x*a*w+33.7*sqr(z));
c:=b+(a/power((5-x/3),3))+120.5*b*x;
e:=(a*b*c-175*a*(b-3))/(a*sqr(b)*c+17*a*z);
f:=2*b+3*e-c*b;
write(b:0:5,' ',c:0:3,' ',e:0:4,' ',f:0:3);
end.

Answer 2

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a,x,z,w:real; Read(a,x,z,w);
  var b:=((z*z-a*a)*7.5-3*(z**3+w)**2+3*x)/(25*x*a*w+33.7*z*z)*z;
  var c:=b+a/(5-x/3)**3+120.5*b*x;
  var e:=(a*b*c-175*a*(b-3))/(a*b*b*c+17*a*z);
  var f:=2*b+3*e-c*b;
  Writeln(b:0:5,' ',c:0:3,' ',e:0:4,' ',f:0:3)
end.