Для данного вещественного x найти значение следующей функции f, принимающей вещественные значения: f(x) = 2*sin(x), если x > 0, 6 — x, если x — Pascal(Паскаль)

Program If24;

Var
  x, y: Real;

Begin
  ReadLn(x);
  If x > 0 Then
    y := 2 * sin(x)
  Else
    y := 6 - x;
  WriteLn('f(x) = ', y);

End.

Leave a Comment