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

1

Ответы и объяснения

2013-04-19T18:55:07+04:00

var x: real;

begin

readln(x);

if x < 0 then

writeln("отрицательное");

if x > 0 then

writeln("положительное");

readln;

end.