Написать программу которая в ответ на введенное с клавиатуры число выводит на экран сообщение о том положительное это число или отрицательное ( использовать оперытор if...then...else)

2

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

2013-06-10T13:59:21+00:00

var

n:integer;

begin

write ('Number: ');readln(n);

if n>0 then writeln ('Число положительное') else

if n<0 then writeln ('Число отрицательное') else writeln ('Ноль');

readln;

end. 

 

 

 

 

 

 

2013-06-10T14:02:42+00:00

Program Fom01;

USES CRT;

Var x:Integer;

begin

Writeln('введите число x');

Readln(x);

If x>0 then

Writeln('положительное');

Else

If x<0 then

Writeln('отрицательное');

readln;

end.