информатика, 9 класс12 номер

Ответ:

Разъяснение:

program Fy1;

 var   x:integer;

 begin

 write('Введите x ');

     readln(x);

 if xlt;0 then

    writeln('y=-1')

 else

    if x=0 then writeln('y=0')

    else writeln('y=1');

readln;

 end.

----------------------------------------------------------------------------2 вар.

 program Fy2;

 var   x,y:integer;

 begin

 write('Введите x ');

     readln(x);

 if xlt;0 then

    y:=-1

 else

    if x=0 then y:=0

    else y:=1;

 writeln('y=',y);

readln;

 end.