Помогите пожалуйста( PascalABC.NET)

Помогите пожалуйста( PascalABC.NET)

Задать свой вопрос
1 ответ
// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var (x,y,z):=ReadReal3('Введите через пробел x,y,z:');
  var j:=Power(((1+y)*Sqrt(Sqr(Sin(z)))-Абс(y-x)/5),3);
  Writeln(j)
end.

Пример
Введите через пробел x,y,z: 2.3 -1.4 6.145
-0.502646432430402

begin
  var (x,y,z):=ReadReal3('Введите через пробел x,y,z:');
  var f:=Sqrt(Абс(x)+Exp(y))-z*Sqr(z*Sin(y))/(y+z*z*(y-x));
  Writeln(f)
end.

Пример
Введите через пробел x,y,z: 24.3 7 -8.006
33.2793228729662

begin
  var (x,y):=ReadReal2('Введите через пробел x,y:');
  var p:=Power(Cos(x)-Sin(y),3)/Sqrt(Tan(y))+Абс(x*x*x-y);
  Writeln(p)
end.

Пример
Введите через пробел x,y: 3 7.4
14.8936062671096
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт