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

Program If25;

Var
  x, y: Real;

Begin
  ReadLn(x);
  If (x > 2) Or (x < -2) Then
    y := 2 * x
  Else
    y := -3 * x;
  WriteLn('f(x) = ', y);

End.

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

Leave a Comment

+ 15 = 17