Question

Помогите с информатикой. Напишите программу, вычисляющую значение функции!!!

Answer 1

Var
  x: real;
  n: integer;

begin
  Write('Введите любое число: ');Readln(x);
  if x < 0 then n := -1
  else
  if x = 0 then n := 0 else n := 1;
  Writeln('y=', n)
end.

Тестовое решение:
Введите любое число: 5
y=1

Answer 2

Var x, y: integer;
begin
write('Введите x: ');
readln(x);
if x < 0 then begin y := -1; writeln('y = ', y); end;
if x = 0 then begin y := 0; writeln('y = ', y); end;
if x > 0 then begin y := 1; writeln('y = ', y); end;

end.