Question

10. Напишите запрашивает на ввод число. Если оно положительное, то на экран выводится цифра 1. Если число отрицательное, выводится -1. Если введенное число 0, то на экран выводится О. Используй- те вложенное ветвление.​

Answer 1

Ответ:

program z;

var x:real;

begin

read(x);

if x>0 then write (1)

else if x<0 then write (-1)

else write (0)

end.