дано число. если это число положительное, то вывести что оно положительное. в противном случае вывести, что оно отрицательное

Question

Информатика

Демьян

26 апреля, 00:40

дано число. если это число положительное, то вывести что оно положительное. в противном случае вывести, что оно отрицательное

+5

Ответы (2)

Знаете ответ?

Андрюша · Answer 1

Var a: integer;

begin

readln (a) ;

if a>0 then

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

if a<0 then

writeln ('число отрицательное) ;

end.

Что делать в случае, если число равно 0?

Данил · Answer 2

Var a:integer;

begin

readln (a) ;

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

else writeln ('Число отрицательное') ;

end.