Question

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

Answer 1

var: x, y: integer;
begin
readln (x);
If x<-2 then
y:=2*x;
If x>2 then
y:=-3*x;
writeln (y);
end.