10. Напишите запрашивает на ввод число. Если оно положительное, то на экран выводится цифра 1. Если число отрицательное, выводится -1. Если введенное число 0, то на экран выводится О. Используй- те вложенное ветвление.
More Questions From This User See All
Answers & Comments
Ответ:
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.