Напишите на паскале программу вычисляющую значение - вопрос №8233518100 от zifu 05.05.2020 08:26

Question

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

zifu · 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