Question

Решить систему уравнений в паскаль:
x^2,x>0
y={ 2x,x<0

Answer 1

var x, y: real;

begin

read(x);

y := 0;

if x > 0 then y := x*x

else if x < 0 then y := 2*x;

write(y:0:3);

end.