Question

Напишите программу, вычисляющую значение функции [-1 при х<0, у={ 0 при х = 0, [1 при х > 0,

Answer 1

Program prx;
Uses crt;
Var y, x : byte;
Begin
Writeln ( "Введи значение х");
Readln(x);
If x<0
Then y:=-1
Else begin
If x=0
Then y:= 0
Else y:=1
End;
End;
Writeln(y);
Readln;
End.