Помогите, пожалуйста, очень надо!!! 3 задача с помощью Паскаля Заранее огромное спасибо!!!;)
Answers & Comments
pacixor
Var a, b, c, z: real; begin write('Введите a, b, c: '); readln(a, b, c); z := (abs(c-sqrt(sqr(a)+(b*b*b))))/(sqrt(a)+sqrt(sqr((b*b*b)+sqr(a)))); writeln('Значение выражения = ', z); end.
Answers & Comments
begin
write('Введите a, b, c: '); readln(a, b, c);
z := (abs(c-sqrt(sqr(a)+(b*b*b))))/(sqrt(a)+sqrt(sqr((b*b*b)+sqr(a))));
writeln('Значение выражения = ', z);
end.