Question

Для данного целого Х найти значение следующей функции f, принимающей значение целого типа:
f(x)= 2*х, если х<-2 или х>2, 
-3*х в противном случае

Answer 1

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.