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

В условии опечатка: два раза написано x < 0.

1) Если функция имеет вид y = 1 при x > 0, 0 при x = 0, -1 при x < 0:

var

  x: real;

  y: integer;

begin

  readln(x);

  if x > 0 then

    y := 1

  else if x = 0 then

    y := 0

  else

    y := -1;

  writeln(y)

end.

2) Если функция имеет вид y = 1 при x < 0, 0 при x = 0, -1 при x > 0, надо поменять местами 1 и -1 в решении выше.

"солнце" - круг с точкой в центре

"идти" - две ноги

"хлеб" - полукруг

"рот" - сильно вытянутый   полуовал

минимально возможное число бит для десятичных цифр равно 4,значит инф объем = 150симв * 4бит =600 бит,

ответ: 600 бит