Question

вычислите значение функции :
y={3x,x<0;
{-x,x≥0.​

Answer 1

Ответ:

Объяснение:

Var x,y: real;

Begin

Write (' x = ');     ReadLn (x);

If (x<0) then Writeln ('y=';  3*x)

            else Writeln ('y=';  (-1)*x);

End.