напишите на паскале программу вычисляющую значение функции y=1 при xamp;gt;0, y=0

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

Задать свой вопрос
1 ответ
Var   x, y : integer;  begin
  WriteLn ('Введите цело число:');  ReadLn (x);    if xgt;0 then      y:=1  else if (x=0) then    y:=0  else    y:=-1;      WriteLn ('Y = ',y);      end.  
Людмила Галятдинова
Оправдываюсь за такое написание кода. Просто веб-сайт поправляет код, потому и такая читаемость
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт