Напишите на паскале программу вычисляющую значение - вопрос №82326161 от ryzik1988 03.04.2020 05:08

Question

Информатика: Напишите на паскале программу вычисляющую значение функции y=1 при x 0, y=0 при x=0, y=-1 при x 0

ryzik1988 · Answer

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.  ...

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