Question

Напишите программу, вычисляющую значение функции

у={ -5. х больше нуля
{ 5. х больше или равно нулю​

Answer 1

Ответ:

Var x,y: integer;

begin

readln(x);

if x<0 then y:=-1

else if x=0 then y:=0 else y:=1;

writeln(‘y = ‘,y);

end.

Объяснение: