var x,y:integer;
begin
readln(x);
if(x>0) then y:=1
else begin
if(x<0) then y:=-1
else y:=0;
end;
writeln(y);
end.
использовать Чертежник
алг домик
нач
сместиться в точку (3,3)
подпр домик
подпр домик
подпр домик
подпр домик
подпр домик
кон
алг. подпр домик
нач
установить цвет ("желтый")
опустить перо
сместиться на вектор(0,3)
сместиться на вектор(4,0)
сместиться на вектор(0,-3)
сместиться на вектор(-4,0)
поднять перо
сместиться на вектор(0,3)
опустить перо
сместиться на вектор(2,2)
сместиться на вектор(2,-2)
поднять перо
сместиться на вектор(-3,-2)
опустить перо
сместиться на вектор(0,1)
сместиться на вектор(2,0)
сместиться на вектор(0,-1)
сместиться на вектор(-2,0)
поднять перо
сместиться на вектор (5,-1)
кон
#Pascal
program xy;
uses CRT;
var x: real;
y: integer;
begin
clrscr;
writeln('Enter x');
readln(x);
if x > 0 then y := 1
else
if x < 0 then y := -1
else y := 0;
writeln('y is ', y);
readln
end.