Дано число y при вводе с клавиатуры числа x обязано вывести

Дано число y при вводе с клавиатуры числа x обязано вывести ему равен y, если
y=1, если х1. y=0 если -1lt;xlt;1 y=-1 если xlt;0 ЗАдача паскаль

Задать свой вопрос
1 ответ
Var
 y, x : integer;
begin
  readln(x);
  if x gt;= 1 then
    y := 1
  else if (x gt; -1)  and (x lt; 1) then
    y := 0
  else if x lt; 0 then
    y := -1;
  writeln(y);
end

Степан Милеев
Спасибо чел ОГОРОМное выручил
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт