Question

Пожалуйста, напишите код этого примера на Паскале

Answer 1

var x,y:real;
begin
readln(x);
y:=1/sqrt(x)+ln(abs(0.2+sin(x)))*power(x*x,1/3);
writeln(y:6:4);
end.

Пример:
2.5
0.2179

Answer 2

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var x:=ReadReal('x=');
  Writeln(1/Sqrt(x)+Sqr(Ln(Abs(0.2+Sin(x))))*x**(2/3))
end.

Пример
x= 2.163
0.681375656936723

Контрольный пример-подтверждение приведен во вложении.