Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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 выражении будет в радианах все считаться