Question

Написать на Паскале программу, выводящую на экран -1, если введённое число X отрицательное, 0 – если число X=0, 1, если число X положительное.

Answer 1

===== PascalABc.NET =====

begin

   Sign(ReadReal).Print

end.

Answer 2

Конечно! Вот пример программы на Паскале, которая будет выводить -1, 0 или 1 в зависимости от введенного числа X:

pascalCopy code
program CheckNumberSign;

var
  X: integer;

begin
  writeln('Введите число X:');
  readln(X);
  
  if X < 0 then
    writeln('-1')
  else if X = 0 then
    writeln('0')
  else
    writeln('1');
end.

При выполнении программы пользователю будет предложено ввести число X. Затем программа проверит его значение и выведет соответствующий результат.

Например, если пользователь вводит число -5, программа выведет -1. Если пользователь вводит число 0, программа выведет 0. Если пользователь вводит число 10, программа выведет 1.