Напишите программу, вычисляющую значение функции [-1 при х<0, <br> у={ 0 при х = 0, [1 при х > 0,
Program prx; Uses crt; Var y, x : byte; Begin Writeln ( "Введи значение х"); Readln(x); If x<0<br>Then y:=-1 Else begin If x=0 Then y:= 0 Else y:=1 End; End; Writeln(y); Readln; End.
Не копируй
Так напечатай
У меня половина букв на русском, я с телефона