напишите на паскале программу вычисляющую значение функции y=1 при x>0, y=0 при x=0, y=-1 при x<0
Answers & Comments
Андрей20005
Var x, y : integer; begin WriteLn ('Введите цело число:'); ReadLn (x); if x>0 then y:=1 else if (x=0) then y:=0 else y:=-1; WriteLn ('Y = ',y); end.
0 votes Thanks 1
Андрей20005
Извиняюсь за такое написание кода. Просто сайт исправляет код, поэтому и такая читаемость
Answers & Comments
WriteLn ('Введите цело число:'); ReadLn (x); if x>0 then y:=1 else if (x=0) then y:=0 else y:=-1; WriteLn ('Y = ',y); end.