Напишите на паскале программу вычисляющую значение - вопрос №82326161 от Кошка200511 23.12.2020 12:31

Question

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

Кошка200511 · 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