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

Question

Информатика

Аксиньюшка

4 февраля, 18:37

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

+5

Ответы (2)

Знаете ответ на вопрос?

Валент · Answer 1

Var a:integer;

begin

readln (a) ;

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

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

end.

Анджела · Answer 2

Var a: integer;

begin

readln (a) ;

if a>0 then

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

if a<0 then

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

end.

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