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

0 голосов
30 просмотров

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


image

Информатика (36 баллов) | 30 просмотров
Дан 1 ответ
0 голосов
Правильный ответ
// 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)))-Abs(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(Abs(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))+Abs(x*x*x-y);
  Writeln(p)
end.

Пример
Введите через пробел x,y: 3 7.4
14.8936062671096
(150k баллов)