Question

Решить надо в Free PascalДаны вещественные x, y, z. Вычислить a, b, если

Answer 1

var

x,y,z,a,b:real;

begin

write ('X = ');readln(x);

write ('Y = ');readln(y);

write ('Z = ');readln(z);

a:=(sqrt(x+y+z)-exp(1/3*ln(x)))/(1+abs(x*x*x-5));

b:=sqr(cos(1+arctan(1/z)));

writeln ('A = ',a:0:4);

writeln ('B = ',b:0:4);

readln;

end.

Только во 2 выражении будет в радианах все считаться