Question

Помогите с инфой срочно , решить в среде Паскаль

Answer 1

===== PascalABC.NET =====

begin

 var x := ReadReal('x =');

 var y: real;

 if x = 1 then

   y := Ln(Abs(Sin(x)))

 else if x = 2 then

   y := Exp(x) + Sqrt(x)

 else

   y := 0.5 + Abs(x);

 Println(y)

end.

Объяснение:

Формула для Х = 2 весьма дурацкая, потому что для положительного числа нет смысла брать его модуль: он всегда совпадает с числом. Посему модуль я убираю.