Question

Помогите пожалуйста! Очень срочно!Напишите текст программы на языке Паскаль. ​

Answer 1

Ответ:

Код ниже

Объяснение:

program calc;

var b, x, z: real;

begin

 writeln ('Введите значение b:');

 readln(b);

 writeln ('Введите аргумент функции x:');

 readln(x);

 if x < 1 then

   z := ln(abs(x*x*x)) - b*b*b

   else z := (abs(sin(x)) + b)/(x - b);

   writeln(z);

end.