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 весьма дурацкая, потому что для положительного числа нет смысла брать его модуль: он всегда совпадает с числом. Посему модуль я убираю.
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 весьма дурацкая, потому что для положительного числа нет смысла брать его модуль: он всегда совпадает с числом. Посему модуль я убираю.