Question

создать программу ,которая будет определять или заданное число x будет положительным ,отрицательным или нулём​

Answer 1

var a: real;

begin

Read(a);

if a<0 then Write('число отрицательное')

else if a=0 then Write('число равно нулю')

else Write('число положительное');

end.