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

Program If26;

Var
  x, y: Real;

Begin
  ReadLn(x);
  If x <= 0 Then
    y := -x
  Else If x >= 2 Then
    y := 4
  Else
    y := Sqr(x);
  WriteLn('f(x) = ', y);

End.

Похожие записи/страницы:

Leave a Comment

60 − 53 =